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

Fixes #312 (properly this time)

Browse source
This commit is contained in:
Sean Corfield 2021-03-15 15:26:22 -07:00
parent fd84864279
commit 9672ed3704
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/honey/sql.cljc
View file

@ -716,7 +716,7 @@
(defn- format-rename-item [k [x y]]
[(str (sql-kw k) " " (format-entity x) " TO " (format-entity y))])
(defn- raw-render [_ [s]]
(defn- raw-render [s]
(if (sequential? s)
(let [[sqls params]
(reduce (fn [[sqls params] s]
@ -765,7 +765,7 @@
:drop-view #'format-drop-items
:drop-materialized-view #'format-drop-items
:refresh-materialized-view (fn [_ x] (format-create :refresh :materialized-view x nil))
:raw #'raw-render
:raw (fn [_ x] (raw-render x))
:nest (fn [_ x] (format-expr x))
:with #'format-with
:with-recursive #'format-with
@ -1064,7 +1064,8 @@
[(sqlize-value (param-value k))]
["?" (->param k)]))
:raw
#'raw-render}))
(fn [_ [xs]]
(raw-render xs))}))
(defn format-expr
"Given a data structure that represents a SQL expression and a hash