From 1130b17e85392efd9f6be733308542b50bded1e3 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Tue, 26 Nov 2019 16:23:11 -0500
Subject: [PATCH] Some debug prints about Stripe failures
---
src/PaymentServer/Processors/Stripe.hs | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/src/PaymentServer/Processors/Stripe.hs b/src/PaymentServer/Processors/Stripe.hs
index 2c80548..96d01b2 100644
--- a/src/PaymentServer/Processors/Stripe.hs
+++ b/src/PaymentServer/Processors/Stripe.hs
@@ -154,7 +154,10 @@ charge d stripeConfig (Charges token voucher amount currency) = do
-&- tokenId
-&- MetaData [("Voucher", voucher)]
case result of
- Left StripeError {} -> throwIO PaymentFailed
+ Left err -> do
+ print "Stripe createCharge failed:"
+ print err
+ throwIO PaymentFailed
Right result -> return result
checkVoucherMetadata :: MetaData -> Handler Acknowledgement
--
GitLab