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

break out SqlParam as its own ToSql instance

Browse source
This commit is contained in:
Mike Blume 2015-03-26 22:20:22 -07:00
parent a996b93dd3
commit 48c501d2c4
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/honeysql/format.clj
View file

@ -314,16 +314,17 @@
sql-str))) sql-str)))
nil nil
(-to-sql [x] "NULL") (-to-sql [x] "NULL")
SqlParam
(-to-seql [x]
(let [pname (param-name x)]
(if (map? @*input-params*)
(add-param pname (get @*input-params* pname))
(let [x (first @*input-params*)]
(swap! *input-params* rest)
(add-param pname x)))))
Object Object
(-to-sql [x] (-to-sql [x]
(if (instance? SqlParam x) (add-anon-param x)))
(let [pname (param-name x)]
(if (map? @*input-params*)
(add-param pname (get @*input-params* pname))
(let [x (first @*input-params*)]
(swap! *input-params* rest)
(add-param pname x))))
(add-anon-param x))))
(defn sqlable? [x] (defn sqlable? [x]
(satisfies? ToSql x)) (satisfies? ToSql x))