(cloud) fixes build
This commit is contained in:
@@ -677,7 +677,7 @@
|
|||||||
(:dirty-entries account-needing-refresh)))))
|
(: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
|
(mu/log ::found-accounts-needing-rebuild
|
||||||
:accounts (count accounts-needing-rebuild))
|
:accounts (count accounts-needing-rebuild))
|
||||||
(let [so-far (atom 0)]
|
(let [so-far (atom 0)]
|
||||||
@@ -727,7 +727,7 @@
|
|||||||
(let [db (dc/db conn)
|
(let [db (dc/db conn)
|
||||||
accounts-needing-rebuild (accounts-needing-rebuild db (:db/id c))]
|
accounts-needing-rebuild (accounts-needing-rebuild db (:db/id c))]
|
||||||
(when (seq accounts-needing-rebuild)
|
(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))))))))
|
(mu/log ::client-completed))))))))
|
||||||
|
|
||||||
(defn rebuild-running-balance-cache
|
(defn rebuild-running-balance-cache
|
||||||
@@ -746,7 +746,7 @@
|
|||||||
(let [db (dc/db conn)
|
(let [db (dc/db conn)
|
||||||
accounts-needing-rebuild (all-accounts-needing-rebuild db (:db/id c))]
|
accounts-needing-rebuild (all-accounts-needing-rebuild db (:db/id c))]
|
||||||
(when (seq accounts-needing-rebuild)
|
(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))))))))
|
(mu/log ::client-completed))))))))
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user