Simplify -to-sql.

This commit is contained in:
Logan Buckley 2015-04-15 10:39:33 -05:00
parent 33ae0c4239
commit f5c111a1be

View file

@ -331,9 +331,7 @@
(add-param pname x)))))
SqlArray
(-to-sql [x]
(let [values (.values x)]
(str "ARRAY[" (comma-join (for [v values]
(-to-sql v))) "]")))
(str "ARRAY[" (comma-join (map -to-sql (.values x))) "]"))
Object
(-to-sql [x]
(add-anon-param x)))