luciano/honeysql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix - as operator

Browse source 
Not a great workaround. May rethink depending on what other operators 
get added containing `-`.
This commit is contained in:
Sean Corfield 2020-10-14 11:00:20 -07:00
parent b711044548
commit 4dcc44d878
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/honey/sql.cljc
View file

@ -83,7 +83,8 @@
:cljs str/upper-case)) :cljs str/upper-case))
(defn sql-kw [k] (defn sql-kw [k]
(-> k (name) (upper-case) (str/replace "-" " "))) (-> k (name) (upper-case)
(as-> s (if (= "-" s) s (str/replace s "-" " ")))))
(defn- namespace-_ [x] (some-> (namespace x) (str/replace "-" "_"))) (defn- namespace-_ [x] (some-> (namespace x) (str/replace "-" "_")))
(defn- name-_ [x] (str/replace (name x) "-" "_")) (defn- name-_ [x] (str/replace (name x) "-" "_"))