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

Remove a duplicate definition of context->sql-string.

Browse source
This commit is contained in:
Richard Newman 2016-07-26 10:50:10 -07:00
parent 8633efc6be
commit 5e1648b05f
1 changed files with 2 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/datomish/query.cljc
View file

@ -49,11 +49,11 @@
:modifiers [:distinct]} :modifiers [:distinct]}
(clauses/cc->partial-subquery (:cc context)))) (clauses/cc->partial-subquery (:cc context))))
(defn context->sql-string [context] (defn context->sql-string [context args]
(-> (->
context context
context->sql-clause context->sql-clause
(sql/format :quoting sql-quoting-style))) (sql/format args :quoting sql-quoting-style)))
(defn- validate-with [with] (defn- validate-with [with]
(when-not (nil? with) (when-not (nil? with)
@ -96,12 +96,6 @@
:elements (:elements find) :elements (:elements find)
:cc (clauses/patterns->cc (:default-source context) where external-bindings))))) :cc (clauses/patterns->cc (:default-source context) where external-bindings)))))
(defn context->sql-string
[context args]
(-> context
context->sql-clause
(sql/format args :quoting sql-quoting-style)))
(defn find->sql-clause (defn find->sql-clause
"Take a parsed `find` expression and turn it into a structured SQL "Take a parsed `find` expression and turn it into a structured SQL
expression that can be formatted by honeysql." expression that can be formatted by honeysql."