much more background process tracking
This commit is contained in:
@@ -491,8 +491,7 @@
|
||||
(defn upsert-all []
|
||||
(doseq [client (get-square-clients)
|
||||
:when (seq (filter :square-location/client-location (:client/square-locations client)))]
|
||||
(lc/with-context {:source "Square loading"
|
||||
:client (:client/code client)}
|
||||
(lc/with-context {:client (:client/code client)}
|
||||
(upsert-locations client)
|
||||
(log/info "Loading Orders")
|
||||
(upsert client)
|
||||
|
||||
Reference in New Issue
Block a user