diff --git a/src/PaymentServer/Processors/Stripe.hs b/src/PaymentServer/Processors/Stripe.hs
index 4c1783891c502532f9d3cae831b044b0490997b3..6b68bc296c67fb988aac3df3f568eda9b0c653ca 100644
--- a/src/PaymentServer/Processors/Stripe.hs
+++ b/src/PaymentServer/Processors/Stripe.hs
@@ -35,6 +35,7 @@ import Servant
   ( Server
   , Handler
   , err400
+  , ServerError(errBody)
   , throwError
   )
 import Servant.API
@@ -154,4 +155,4 @@ charge d key (Charges token voucher amount currency) = do
     Right (Charge {}) -> do
       liftIO $ payForVoucher d voucher
       return Ok
-    Left (StripeError {}) -> throwError err400
+    Left (StripeError {}) -> throwError err400 { errBody = "Stripe charge didn't succeed" }