Skip to content
Snippets Groups Projects
Commit 63d883d5 authored by Jean-Paul Calderone's avatar Jean-Paul Calderone
Browse files

Affirm success somewhat more explicitly

parent 431e8af8
No related branches found
No related tags found
1 merge request!39CORS headers on Stripe charge API responses
Hide whitespace changes
Inline Side-by-side
src/PaymentServer/Processors/Stripe.hs
+ 3
− 1
View file @ 63d883d5
...@@ -92,7 +92,9 @@ type StripeSecretKey = ByteString ...@@ -92,7 +92,9 @@ type StripeSecretKey = ByteString
data Acknowledgement = Ok data Acknowledgement = Ok
instance ToJSON Acknowledgement where instance ToJSON Acknowledgement where
toJSON Ok = object [] toJSON Ok = object
[ "success" .= True
]
type StripeAPI = ChargesAPI type StripeAPI = ChargesAPI
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment