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