Revert "Log response body even if response is ignored."
This reverts commit 5340ff52f7020fff12b38c0fb312a190de4b2b53.
commit318ade4c43df0f717f198c652930306239eecacc
authorNick <nick@typeable.io>
dateTue 1 Apr 2025, 18:02 (2 years ago)
parent5340ff5
connexpay/src/Web/Connexpay/Payments.hs+2−3
@@ -119,9 +119,8 @@ sendRequestJson endpoint body = do
119119
120120sendRequest_ :: Text -> [Pair] -> ConnexpayM ()
121121sendRequest_ ep body = do
122− r <- sendRequest' lbsResponse ep mempty body
123− let b = responseBody r
124− logResponseBody r b
122+ r <- sendRequest' ignoreResponse ep mempty body
123+ logResponse r
125124
126125data AuthResponse = AuthResponse { paymentGuid :: AuthOnlyGuid
127126 , status :: TransactionStatus