Allow maps/vectors not to be read as subqueries

This commit is contained in:
Mike Blume 2015-03-26 17:03:38 -07:00
parent 48c501d2c4
commit d74f2d2437

View file

@ -261,6 +261,13 @@
(defprotocol ToSql (defprotocol ToSql
(-to-sql [x])) (-to-sql [x]))
(defrecord Value [v]
ToSql
(-to-sql [_]
(add-anon-param v)))
(defn value [x] (Value. x))
(declare -format-clause) (declare -format-clause)
(extend-protocol ToSql (extend-protocol ToSql
@ -315,7 +322,7 @@
nil nil
(-to-sql [x] "NULL") (-to-sql [x] "NULL")
SqlParam SqlParam
(-to-seql [x] (-to-sql [x]
(let [pname (param-name x)] (let [pname (param-name x)]
(if (map? @*input-params*) (if (map? @*input-params*)
(add-param pname (get @*input-params* pname)) (add-param pname (get @*input-params* pname))