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

More investigation into perf issues

Browse Source
This commit is contained in:
Bryce Covert
2023-03-13 08:30:56 -07:00
parent 0f18ad6778
commit 67eb52768f
1 changed files with 26 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
src/clj/auto_ap/graphql/ledger.clj
View File

@@ -302,23 +302,30 @@
used-vendor-names) used-vendor-names)
(d/pull-many (d/db conn) [:db/id :vendor/name]) (d/pull-many (d/db conn) [:db/id :vendor/name])
(by :vendor/name))) (by :vendor/name)))
all-clients (by :client/code (d-clients/get-all )) all-clients (mu/trace ::get-all-clients []
all-client-bank-accounts (reduce (by :client/code (d-clients/get-all )))
(fn [acc client] all-client-bank-accounts (mu/trace ::get-all-client-bank-accounts
(assoc acc (:client/code client) []
(set (->> (:client/bank-accounts client) (reduce
(map :bank-account/code) (fn [acc client]
)))) (assoc acc (:client/code client)
{} (set (->> (:client/bank-accounts client)
(d-clients/get-all)) (map :bank-account/code)
all-client-locations (reduce ))))
(fn [acc client] {}
(assoc acc (:client/code client) (d-clients/get-all)))
(-> (set (:client/locations client))
(conj "HQ") all-client-locations (mu/trace ::get-all-client-locations
(conj "A")))) []
{} (reduce
(d-clients/get-all)) (fn [acc client]
(assoc acc (:client/code client)
(-> (set (:client/locations client))
(conj "HQ")
(conj "A"))))
{}
(d-clients/get-all)))
new-hidden-vendors (reduce new-hidden-vendors (reduce
(fn [new-vendors {:keys [vendor_name]}] (fn [new-vendors {:keys [vendor_name]}]
(if (or (all-vendors vendor_name) (if (or (all-vendors vendor_name)
@@ -340,7 +347,8 @@
used-vendor-names) used-vendor-names)
(d/pull-many (d/db conn) [:db/id :vendor/name]) (d/pull-many (d/db conn) [:db/id :vendor/name])
(by :vendor/name)) (by :vendor/name))
all-accounts (transduce (map (comp str :account/numeric-code)) conj #{} (a/get-accounts)) all-accounts (mu/trace ::get-all-accounts []
(transduce (map (comp str :account/numeric-code)) conj #{} (a/get-accounts)))
transaction (mu/trace ::build-transaction transaction (mu/trace ::build-transaction
[:count (count (:entries args))] [:count (count (:entries args))]
(doall (map (doall (map