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

cljs/1.9 compatibility

Browse source
This commit is contained in:
Sean Corfield 2021-06-17 13:05:49 -07:00
parent 00b20f6bbf
commit cf136c2fdc
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/honey/sql.cljc
View file

@ -156,22 +156,22 @@
[x] [x]
(try (try
(some-> (namespace x) (str/replace "-" "_")) (some-> (namespace x) (str/replace "-" "_"))
(catch Throwable t (catch #?(:clj Throwable :cljs :default) t
(throw (ex-info (str "expected symbol, found: " (throw (ex-info (str "expected symbol, found: "
(type x)) (type x))
{:symbol x {:symbol x
:failure (ex-message t)}))))) :failure (str t)})))))
(defn- name-_ (defn- name-_
"Return the name portion of a symbol, with dashes converted." "Return the name portion of a symbol, with dashes converted."
[x] [x]
(try (try
(str/replace (name x) "-" "_") (str/replace (name x) "-" "_")
(catch Throwable t (catch #?(:clj Throwable :cljs :default) t
(throw (ex-info (str "expected symbol, found: " (throw (ex-info (str "expected symbol, found: "
(type x)) (type x))
{:symbol x {:symbol x
:failure (ex-message t)}))))) :failure (str t)})))))
(defn- sqlize-value [x] (defn- sqlize-value [x]
(cond (cond