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

Does not use timeouts for background processing

Browse Source
This commit is contained in:
Bryce
2023-05-23 12:40:33 -07:00
parent 613d62b60d
commit 8cb8a92a2f
3 changed files with 28 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/clj/auto_ap/square/core3.clj
View File

@@ -568,7 +568,7 @@
(doseq [x (partition-all 100 results)]
(log/info ::loading-orders
:count (count x))
@(dc/transact conn x))))))))
@(dc/transact-async conn x))))))))
(defn upsert-settlements
@@ -588,7 +588,7 @@
(doseq [x (partition-all 20 settlements)]
(log/info ::loading-deposits
:count (count x))
@(dc/transact conn x))
@(dc/transact-async conn x))
(log/info ::done-loading-deposits)))))))
(defn upsert-refunds
@@ -609,7 +609,7 @@
(log/info ::loading-refunds
:count (count x)
:sample (first x))
@(dc/transact conn x))
@(dc/transact-async conn x))
(catch Throwable e
(log/error ::upsert-refunds-failed
@@ -687,7 +687,7 @@
(log/info ::loading-cash-shifts
:count (count x)
:sample (first x))
@(dc/transact conn x))
@(dc/transact-async conn x))
(catch Throwable e
(log/error ::upsert-cash-shifts-failed
@@ -737,7 +737,7 @@
(:client/square-locations client)))]
(de/chain (client-locations client)
(fn [client-locations]
@(dc/transact conn
@(dc/transact-async conn
(for [square-location client-locations]
{:db/id (or (square-id->id (:id square-location)) (str (java.util.UUID/randomUUID)))
:client/_square-locations (:db/id client)
@@ -756,7 +756,7 @@
(map (fn [x] [:db/retractEntity x]))))
(defn mark-integration-status [client integration-status]
@(dc/transact conn
@(dc/transact-async conn
[{:db/id (:db/id client)
:client/square-integration-status (assoc integration-status
:db/id (or (-> client :client/square-integration-status :db/id)