notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

more forgiving matching.

Browse Source
This commit is contained in:
Bryce Covert
2019-05-17 08:30:26 -07:00
parent a87d22c320
commit 2f6dc32546
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/clj/auto_ap/datomic/checks.clj
View File

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