Handle empty :where SQL clauses in query.

This commit is contained in:
Nick Alexander 2016-07-15 12:42:20 -07:00
parent 54b1d268fa
commit b545ddc0e1

View file

@ -170,11 +170,12 @@
[(map row columns-in-order) nil])))))
(defn context->sql-clause [context]
(merge
{:select (sql-projection context)
:from (:from context)
:where (if (empty? (:wheres context))
nil
(cons :and (:wheres context)))})
:from (:from context)}
(if (empty? (:wheres context))
{}
{:where (cons :and (:wheres context))})))
(defn context->sql-string [context]
(->