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

should handle case of no payouts.

Browse Source
This commit is contained in:
Bryce
2023-07-26 11:39:19 -07:00
parent 90014fbfcd
commit a2320cec80
1 changed files with 21 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -430,25 +430,27 @@
:body :body
:payouts :payouts
(fn [payouts] (fn [payouts]
(->> payouts (if (seq payouts)
(s/->source) (->> payouts
(s/map (fn [payout] (s/->source)
(mu/with-context lc (s/map (fn [payout]
(log/info ::looking-up-payout (mu/with-context lc
:payout-id (:id payout)) (log/info ::looking-up-payout
(de/chain :payout-id (:id payout))
(manifold-api-call (de/chain
{:url (str "https://connect.squareup.com/v2/payouts/" (:id payout) "/payout-entries") (manifold-api-call
:method :get {:url (str "https://connect.squareup.com/v2/payouts/" (:id payout) "/payout-entries")
:headers (client-base-headers client "2023-04-19") :method :get
:as :json}) :headers (client-base-headers client "2023-04-19")
:body :as :json})
:payout_entries :body
(fn [b] :payout_entries
(assoc payout :payout_entries b)))))) (fn [b]
(s/buffer 10) (assoc payout :payout_entries b))))))
(s/realize-each) (s/buffer 10)
(s/reduce conj []))))))) (s/realize-each)
(s/reduce conj []))
[]))))))
(defn transformed-payouts (defn transformed-payouts
([client location] ([client location]