Fix VALUES with multiple hash maps
This commit is contained in:
parent
15ace00e49
commit
d04d9f600a
1 changed files with 4 additions and 2 deletions
|
|
@ -310,7 +310,7 @@
|
||||||
(let [cols (keys (first xs))
|
(let [cols (keys (first xs))
|
||||||
[sqls params]
|
[sqls params]
|
||||||
(reduce (fn [[sql params] [sqls' params']]
|
(reduce (fn [[sql params] [sqls' params']]
|
||||||
[(conj sql (str/join ", " sqls'))
|
[(conj sql (str "(" (str/join ", " sqls') ")"))
|
||||||
(if params' (into params params') params')])
|
(if params' (into params params') params')])
|
||||||
[[] []]
|
[[] []]
|
||||||
(map (fn [m]
|
(map (fn [m]
|
||||||
|
|
@ -320,7 +320,9 @@
|
||||||
(str/join ", "
|
(str/join ", "
|
||||||
(map #(format-entity % {:drop-ns? true}) cols))
|
(map #(format-entity % {:drop-ns? true}) cols))
|
||||||
") "
|
") "
|
||||||
(sql-kw k) " (" (str/join ", " sqls) ")")]
|
(sql-kw k)
|
||||||
|
" "
|
||||||
|
(str/join ", " sqls))]
|
||||||
params))
|
params))
|
||||||
|
|
||||||
:else
|
:else
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue