fix settlement loading
This commit is contained in:
@@ -290,7 +290,7 @@
|
|||||||
(map (fn [s]
|
(map (fn [s]
|
||||||
(lc/with-context {:source "Square settlements loading "}
|
(lc/with-context {:source "Square settlements loading "}
|
||||||
(log/info "Looking up settlement " s " for location " (:square-location/client-location location))
|
(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)
|
{:headers (client-base-headers client)
|
||||||
:as :json
|
:as :json
|
||||||
:retry-handler retry-4}))))))
|
:retry-handler retry-4}))))))
|
||||||
|
|||||||
Reference in New Issue
Block a user