more forgiving matching.

This commit is contained in:
Bryce Covert
2019-05-17 08:30:26 -07:00
parent a87d22c320
commit 2f6dc32546

View File

@@ -2,6 +2,7 @@
(:require [datomic.api :as d]
[auto-ap.datomic :refer [uri merge-query apply-sort-2 apply-pagination add-sorter-field]]
[auto-ap.graphql.utils :refer [limited-clients]]
[auto-ap.utils :refer [dollars=]]
[clojure.set :refer [rename-keys]]
[clj-time.coerce :as c]))
@@ -78,7 +79,8 @@
(:amount args)
(merge-query {:query {:in ['?amount]
:where ['[?e :payment/amount ?amount]]}
:where ['[?e :payment/amount ?transaction-amount]
'[(auto-ap.utils/dollars= ?transaction-amount ?amount)]]}
:args [(:amount args)]})