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

Don't upper case function calls

Browse source 
To allow for case-sensitive function names
This commit is contained in:
David Powell 2013-04-12 19:11:33 +02:00
parent f13eeacff8
commit 90f3088c24
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/honeysql/format.clj
View file

@ -54,11 +54,10 @@
")")) ")"))
(defmethod fn-handler :default [op & args] (defmethod fn-handler :default [op & args]
(let [op-upper (string/upper-case op) (let [args (map to-sql args)]
args (map to-sql args)]
(if (infix-fns op) (if (infix-fns op)
(paren-wrap (string/join (str " " op-upper " ") args)) (paren-wrap (string/join (str " " op " ") args))
(str op-upper (paren-wrap (comma-join args)))))) (str op (paren-wrap (comma-join args))))))
(defmethod fn-handler "count-distinct" [_ & args] (defmethod fn-handler "count-distinct" [_ & args]
(str "COUNT(DISTINCT " (comma-join (map to-sql args)) ")")) (str "COUNT(DISTINCT " (comma-join (map to-sql args)) ")"))