fix settlement loading

This commit is contained in:
Bryce Covert
2023-01-03 22:01:44 -08:00
parent 7223ef8c0d
commit 7cd1b689f7

View File

@@ -290,7 +290,7 @@
(map (fn [s]
(lc/with-context {:source "Square settlements loading "}
(log/info "Looking up settlement " s " for location " (:square-location/client-location location))
(:body (retry #(client/get (str "https://connect.squareup.com/v1/" (:square-location/square-id location) "/settlements/" s)
(:body (retry #(client/get (str "https://connect.squareup.com/v1/" (:square-location/square-id location) "/settlements/" (:id s))
{:headers (client-base-headers client)
:as :json
:retry-handler retry-4}))))))