minor tweaks.

This commit is contained in:
Bryce Covert
2020-10-02 07:18:39 -07:00
parent 71c716e669
commit cdccaf0572
3 changed files with 3 additions and 6 deletions

View File

@@ -29,8 +29,6 @@
(fn [jels]
(mapv
(fn [jel]
(log/info (get-in @running-balance-cache [(:db/id (:journal-entry/client je))
(:db/id jel)]))
(assoc jel :running-balance (get-in @running-balance-cache [(:db/id (:journal-entry/client je))
(:db/id jel)])))

View File

@@ -120,7 +120,7 @@
(defn location_id->client-location [location]
({"2RVBYER6QSV7W" ["NGAK" "MH"]
"8JT71V8XGYAT3" ["NGKG" "NB"]
#_#_"8JT71V8XGYAT3" ["NGKG" "NB"]
"SCX0Y8CTGM1S0" ["NGE1" "UC"]
"FNH5VRT890WK8" ["NGMJ" "SC"]
"AMQ0NPA8FGDEF" ["NGPG" "SZ"]
@@ -265,11 +265,11 @@
(map (fn [x] [:db/retractEntity x]))))
(mount/defstate square-loader
:start (scheduler/every (* 15 60 1000) upsert)
:start (scheduler/every (* 13 60 1000) upsert)
:stop (scheduler/stop square-loader))
(mount/defstate square-settlement-loader
:start (scheduler/every (* 15 60 1000) upsert-settlements)
:start (scheduler/every (* 14 60 1000) upsert-settlements)
:stop (scheduler/stop square-settlement-loader))
(comment

View File

@@ -268,7 +268,6 @@
output-chan
(map (fn [provider-account-id]
(lc/with-context {:provider-account-id provider-account-id}
(log/info "fetching accounts for provider" provider-account-id)
[provider-account-id
(get-accounts-for-provider-account provider-account-id)])))
(async/to-chan provider-account-ids))