support as alias of NULL

ninjudd · Feb 13, 2015 · 476e66e · 476e66e
1 parent 021a5ee
commit 476e66e
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/sqlingvo/compiler.clj b/src/sqlingvo/compiler.clj
@@ -422,7 +422,8 @@
 (defmethod compile-sql :list [db {:keys [children]}]
   (concat-sql "(" (join-sql ", " (map #(compile-sql db %1) children)) ")"))
 
-(defmethod compile-sql :nil [db _] ["NULL"])
+(defmethod compile-sql :nil [db {:keys [as]}]
+  (concat-sql "NULL" (compile-alias db as)))
 
 (defmethod compile-sql :offset [db {:keys [start]}]
   (concat-sql "OFFSET " (if (number? start) (str start) "0")))