diff --git a/src/PaymentServer/Processors/Stripe.hs b/src/PaymentServer/Processors/Stripe.hs
index 2c8054866ad32df2cde804740519c4e0bb6399fa..96d01b23357937ec29d5dd4aa0e121086a8886b8 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