From 63d883d5f1d4a82ddc58eb7a01a71dda775ddf19 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Mon, 25 Nov 2019 15:07:38 -0500
Subject: [PATCH] Affirm success somewhat more explicitly

---
 src/PaymentServer/Processors/Stripe.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/PaymentServer/Processors/Stripe.hs b/src/PaymentServer/Processors/Stripe.hs
index 66efadc..25a63fe 100644
--- a/src/PaymentServer/Processors/Stripe.hs
+++ b/src/PaymentServer/Processors/Stripe.hs
@@ -92,7 +92,9 @@ type StripeSecretKey = ByteString
 data Acknowledgement = Ok
 
 instance ToJSON Acknowledgement where
-  toJSON Ok = object []
+  toJSON Ok = object
+    [ "success" .= True
+    ]
 
 type StripeAPI = ChargesAPI
 
-- 
GitLab