notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

minor tweaks.

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

2
src/clj/auto_ap/graphql/ledger.clj
View File

@@ -29,8 +29,6 @@
(fn [jels] (fn [jels]
(mapv (mapv
(fn [jel] (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)) (assoc jel :running-balance (get-in @running-balance-cache [(:db/id (:journal-entry/client je))
(:db/id jel)]))) (:db/id jel)])))

6
src/clj/auto_ap/square/core.clj
View File

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

1
src/clj/auto_ap/yodlee/core.clj
View File

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