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

scalar type for id simplifies parsing longs.

Browse Source
This commit is contained in:
Bryce Covert
2018-11-12 08:26:47 -08:00
parent 2263a5f24a
commit 6eaff40608
12 changed files with 80 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/clj/auto_ap/datomic/bank_accounts.clj
View File

@@ -26,7 +26,7 @@
:in ['$]
:where []}
:args [(d/db (d/connect uri))]}
(add-arg '?e (cond-> id (string? id) Long/parseLong) ['?e])))
(add-arg '?e id ['?e])))
(map first)
(<-datomic)
(first)))

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

@@ -27,13 +27,12 @@
{:payment/type [:db/ident]}]))
(defn raw-graphql [args]
(println "ARGS" args)
(let [query (cond-> {:query {:find [default-read]
:in ['$]
:where ['[?e :payment/client]]}
:args [(d/db (d/connect uri))]}
(:client-id args) (add-arg '?client-id (cond-> (:client-id args) (string? (:client-id args)) Long/parseLong )
(:client-id args) (add-arg '?client-id (:client-id args)
'[?e :payment/client ?client-id])
(:original-id args) (add-arg '?original-id (cond-> (:original-id args) (string? (:original-id args)) Long/parseLong )
'[?e :payment/client ?c]
@@ -77,6 +76,6 @@
:in ['$]
:where []}
:args [(d/db (d/connect uri))]}
(add-arg '?e (cond-> id (string? id) Long/parseLong) ['?e])))
(add-arg '?e id ['?e])))
(<-datomic)
(first)))

2
src/clj/auto_ap/datomic/clients.clj
View File

@@ -19,7 +19,7 @@
(d/query (-> {:query {:find ['(pull ?e [*])]
:in ['$ '?e]
:where [['?e]]}
:args [(d/db (d/connect uri)) (cond-> id (string? id) Long/parseLong)]}
:args [(d/db (d/connect uri)) id]}
))
(first)
(first)

9
src/clj/auto_ap/datomic/invoices.clj
View File

@@ -34,9 +34,7 @@
:where ['[?e :invoice/invoice-number]]}
:args [(d/db (d/connect uri))]}
(:client-id args) (add-arg '?client-id (cond-> (:client-id args)
(string? (:client-id args))
Long/parseLong)
(:client-id args) (add-arg '?client-id (:client-id args)
'[?e :invoice/client ?client-id])
(:original-id args) (add-arg '?original-id (cond-> (:original-id args) (string? (:original-id args)) Long/parseLong )
@@ -77,7 +75,7 @@
:in ['$]
:where []}
:args [(d/db (d/connect uri))]}
(add-arg '?e (cond-> id (string? id) Long/parseLong) ['?e])))
(add-arg '?e id ['?e])))
(map first)
(<-datomic)
(first)))
@@ -92,8 +90,7 @@
:in ['$ ['?e '...]]
:where [['?e]]}
:args [(d/db (d/connect uri))
(mapv #(cond-> % (string? %) Long/parseLong)
ids)] }
ids] }
)

2
src/clj/auto_ap/datomic/transactions.clj
View File

@@ -19,7 +19,7 @@
:where ['[?e :transaction/id]]}
:args [(d/db (d/connect uri))]}
(:client-id args) (add-arg '?client-id (Long/parseLong (:client-id args))
(:client-id args) (add-arg '?client-id (:client-id args)
'[?e :transaction/client ?client-id])
(:original-id args) (add-arg '?original-id (cond-> (:original-id args) (string? (:original-id args)) Long/parseLong )
'[?e :transaction/client ?c]

2
src/clj/auto_ap/datomic/users.clj
View File

@@ -18,7 +18,7 @@
:in ['$]
:where []}
:args [(d/db (d/connect uri))]}
(add-arg '?e (cond-> id (string? id) Long/parseLong) ['?e])
(add-arg '?e id ['?e])
(doto println))]
(->> (d/query query)

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

@@ -21,9 +21,7 @@
:in $ ?e
:where [?e]]
(d/db (d/connect uri))
(if (string? id)
(Long/parseLong id)
id))
id)
(map first)
(first)
#_(map (fn [c]