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

add pname to *param-names* once per value

Browse source 
keep *params* and *param-names* at the same count
This commit is contained in:
Mike Blume 2015-05-08 14:20:24 -07:00
parent 4bdaae39af
commit 6b64743315
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/honeysql/format.clj
View file

@ -249,23 +249,23 @@
[sql-str]))))
(defprotocol Parameterizable
(to-params [value]))
(to-params [value pname]))
(extend-protocol Parameterizable
clojure.lang.Sequential
(to-params [value]
(paren-wrap (comma-join (mapv to-params value))))
(to-params [value pname]
(paren-wrap (comma-join (mapv #(to-params % pname) value))))
clojure.lang.IPersistentSet
(to-params [value]
(to-params (seq value)))
(to-params [value pname]
(to-params (seq value) pname))
java.lang.Object
(to-params [value]
(to-params [value pname]
(swap! *params* conj value)
(swap! *param-names* conj pname)
(*parameterizer*)))
(defn add-param [pname pval]
(swap! *param-names* conj pname)
(to-params pval))
(to-params pval pname))
;; Anonymous param name -- :_1, :_2, etc.
(defn add-anon-param [pval]