allow string aliases

2012-08-22 11:23:00 -04:00 · 2012-08-22 11:23:00 -04:00 · 3b97fd4f06
commit 3b97fd4f06
parent 73da451ab3
1 changed files with 3 additions and 1 deletions
--- a/src/honeysql/format.clj
+++ b/src/honeysql/format.clj
@ -151,7 +151,9 @@
                 ;; alias
                 (str (to-sql (first x))
                      " AS "
-                      (to-sql (second x)))))
+                      (if (string? (second x))
+                        (str "\"" (second x) "\"")
+                        (to-sql (second x))))))
  SqlCall
  (-to-sql [x] (binding [*fn-context?* true]
                 (let [fn-name (name (.name x))