From 2bd04131d24e101172d930dded7131c8d3c5706f Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <ram@leastauthority.com>
Date: Wed, 6 Nov 2019 12:02:44 +0530
Subject: [PATCH] in case of voucher mismatch, return http 500 status
If for "some reason" Stripe servers returned a mismatched voucher
code, return http 500 status.
---
src/PaymentServer/Processors/Stripe.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/PaymentServer/Processors/Stripe.hs b/src/PaymentServer/Processors/Stripe.hs
index 5b00b48..26d8967 100644
--- a/src/PaymentServer/Processors/Stripe.hs
+++ b/src/PaymentServer/Processors/Stripe.hs
@@ -38,6 +38,7 @@ import Servant
( Server
, Handler
, err400
+ , err500
, ServerError(errBody)
, throwError
)
@@ -169,7 +170,7 @@ charge d key (Charges token voucher amount currency) = do
liftIO $ payForVoucher d voucher
return Ok
else
- throwError err400 { errBody = "Voucher code mismatch" }
+ throwError err500 { errBody = "Voucher code mismatch" }
_ -> throwError err400 { errBody = "Voucher code not found" }
Left StripeError {} -> throwError err400 { errBody = "Stripe charge didn't succeed" }
where
--
GitLab