From dcf8adc27394c6b9ebe738ec4a62775fb85e3c54 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Fri, 10 Mar 2023 17:58:07 -0800 Subject: [PATCH] Revert "Likely improves performance of import ledger" This reverts commit ece217ad781a431b8e408151cb597dcdd8d2493e. --- src/clj/auto_ap/graphql/ledger.clj | 21 ++++++++------------- 1 file changed, 8 insertions(+), 13 deletions(-) diff --git a/src/clj/auto_ap/graphql/ledger.clj b/src/clj/auto_ap/graphql/ledger.clj index 11e6dcc1..3b7e5ea1 100644 --- a/src/clj/auto_ap/graphql/ledger.clj +++ b/src/clj/auto_ap/graphql/ledger.clj @@ -292,14 +292,12 @@ (defn import-ledger [context args _] (assert-admin (:id context)) - (let [used-vendor-names (set (map :vendor_name (:entries args))) - all-vendors (mu/trace ::get-all-vendors + (let [all-vendors (mu/trace ::get-all-vendors [] (->> (d/q '[:find [?e ...] - :in $ [?name ...] - :where [?e :vendor/name ?name]] - (d/db conn) - used-vendor-names) + :in $ + :where [?e :vendor/name]] + (d/db conn)) (d/pull-many (d/db conn) d-vendors/default-read) (by :vendor/name))) all-clients (by :client/code (d-clients/get-all )) @@ -333,13 +331,10 @@ _ (mu/trace ::upsert-new-vendors [] (audit-transact-batch (vec (vals new-hidden-vendors)) (:id context))) - all-vendors (->> (->> (d/q '[:find [?e ...] - :in $ [?name ...] - :where [?e :vendor/name ?name]] - (d/db conn) - used-vendor-names) - (d/pull-many (d/db conn) d-vendors/default-read) - (by :vendor/name)) + all-vendors (->> (d/q '[:find [?e ...] + :in $ + :where [?e :vendor/name]] + (d/db conn)) (d/pull-many (d/db conn) d-vendors/default-read) (by :vendor/name)) all-accounts (transduce (map (comp str :account/numeric-code)) conj #{} (a/get-accounts))