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

(cloud) big performance fixes

Browse Source
This commit is contained in:
Bryce Covert
2023-03-23 20:53:54 -07:00
parent e810612fbb
commit 7fd3528d0f
5 changed files with 100 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
iol_ion/src/iol_ion/tx.clj
View File

@@ -164,8 +164,7 @@
(assert (:journal-entry/client ledger-entry) "Must at least provide client when updating ledger")
(assert (every? :journal-entry-line/account (:journal-entry/line-items ledger-entry)) "must at least provide account when updating ledger")
(assert (every? :journal-entry-line/location (:journal-entry/line-items ledger-entry)) "Must at least provide location when updating ledger")
(let [
extant-entry (or (when-let [original-entity (:journal-entry/original-entity ledger-entry)]
(let [extant-entry (or (when-let [original-entity (:journal-entry/original-entity ledger-entry)]
(dc/pull db extant-read [:journal-entry/original-entity original-entity]))
(when-let [external-id (:journal-entry/external-id ledger-entry)]
(dc/pull db extant-read [:journal-entry/external-id external-id])))