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

Ensure DSL elements can be symbols (as well as keywords)

Browse source
This commit is contained in:
Sean Corfield 2020-09-30 13:00:09 -07:00
parent a789d4a4ff
commit ddef4068ba
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/honey/sql.cljc
View file

@ -431,12 +431,12 @@
(defn- format-dsl [x & [{:keys [aliased? nested? pretty?]}]]
(let [[sqls params leftover]
(reduce (fn [[sql params leftover] k]
(if-let [xs (k x)]
(if-let [xs (or (k x) (let [s (symbol (name k))] (get x s)))]
(let [formatter (k @clause-format)
[sql' & params'] (formatter k xs)]
[(conj sql sql')
(if params' (into params params') params)
(dissoc leftover k)])
(dissoc leftover k (symbol (name k)))])
[sql params leftover]))
[[] [] x]
*clause-order*)]