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

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] }
)