minor tweaks.
This commit is contained in:
@@ -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)])))
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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))
|
||||
|
||||
Reference in New Issue
Block a user