Log response body even if response is ignored.
commit5340ff52f7020fff12b38c0fb312a190de4b2b53
authorNick <nick@typeable.io>
dateTue 1 Apr 2025, 12:34 (2 years ago)
parentf90fcff
connexpay/src/Web/Connexpay/Payments.hs+3−2
@@ -119,8 +119,9 @@ sendRequestJson endpoint body = do
119119
120120sendRequest_ :: Text -> [Pair] -> ConnexpayM ()
121121sendRequest_ ep body = do
122− r <- sendRequest' ignoreResponse ep mempty body
123− logResponse r
122+ r <- sendRequest' lbsResponse ep mempty body
123+ let b = responseBody r
124+ logResponseBody r b
124125
125126data AuthResponse = AuthResponse { paymentGuid :: AuthOnlyGuid
126127 , status :: TransactionStatus