From 53a1c497b5182992d6463256b97ec1f9344cddfc Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Wed, 29 Mar 2023 16:57:45 -0700 Subject: [PATCH] (cloud) fixes build --- src/clj/auto_ap/ledger.clj | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/clj/auto_ap/ledger.clj b/src/clj/auto_ap/ledger.clj index 4ea60b2c..9d330f2d 100644 --- a/src/clj/auto_ap/ledger.clj +++ b/src/clj/auto_ap/ledger.clj @@ -677,7 +677,7 @@ (:dirty-entries account-needing-refresh))))) -(defn refresh-running-balance-accounts [accounts-needing-rebuild clients i db] +(defn refresh-running-balance-accounts [accounts-needing-rebuild clients c i db] (mu/log ::found-accounts-needing-rebuild :accounts (count accounts-needing-rebuild)) (let [so-far (atom 0)] @@ -727,7 +727,7 @@ (let [db (dc/db conn) accounts-needing-rebuild (accounts-needing-rebuild db (:db/id c))] (when (seq accounts-needing-rebuild) - (refresh-running-balance-accounts accounts-needing-rebuild clients i db) + (refresh-running-balance-accounts accounts-needing-rebuild clients c i db) (mu/log ::client-completed)))))))) (defn rebuild-running-balance-cache @@ -746,7 +746,7 @@ (let [db (dc/db conn) accounts-needing-rebuild (all-accounts-needing-rebuild db (:db/id c))] (when (seq accounts-needing-rebuild) - (refresh-running-balance-accounts accounts-needing-rebuild clients i db) + (refresh-running-balance-accounts accounts-needing-rebuild clients c i db) (mu/log ::client-completed))))))))