greg/mentat
1
0
Fork 0
Code Issues 294 Pull requests Projects Releases 9 Packages Wiki Activity

Handle empty :where SQL clauses in query.

Browse source
This commit is contained in:
Nick Alexander 2016-07-15 12:42:20 -07:00 committed by Richard Newman
parent 13dc1cc9b6
commit 4262b10f55
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/datomish/query.cljc
View file

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