Fix VALUES with multiple hash maps

This commit is contained in:
Sean Corfield 2020-10-09 23:58:55 -07:00
parent 15ace00e49
commit d04d9f600a

View file

@ -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