Affirm success somewhat more explicitly

63d883d5 · Jean-Paul Calderone · 431e8af8 · 63d883d5
Commit 63d883d5 authored 5 years ago by Jean-Paul Calderone
--- 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