From b46a6133bd8235f26d4d6094d6436d7dd3534588 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Fri, 22 Nov 2019 16:03:46 -0500
Subject: [PATCH] yea, that's the badger
---
src/PaymentServer/Processors/Stripe.hs | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/PaymentServer/Processors/Stripe.hs b/src/PaymentServer/Processors/Stripe.hs
index 9ee9c27..a087904 100644
--- a/src/PaymentServer/Processors/Stripe.hs
+++ b/src/PaymentServer/Processors/Stripe.hs
@@ -166,6 +166,7 @@ charge d key (Charges token voucher amount currency) = do
if v == voucher
then
do
+ -- TODO Handle payForVoucher errors
liftIO $ payForVoucher d voucher
return Ok
else
--
GitLab