diff --git a/src/PaymentServer/Processors/Stripe.hs b/src/PaymentServer/Processors/Stripe.hs
index 9ee9c2730c334161a434f46179802a7e11efad5a..a087904cd12a03b9a1e13a87a7d9bfdda19bb306 100644
--- a/src/PaymentServer/Processors/Stripe.hs
+++ b/src/PaymentServer/Processors/Stripe.hs
@@ -166,6 +166,7 @@ charge d key (Charges token voucher amount currency) = do
           if v == voucher
             then
             do
+              -- TODO Handle payForVoucher errors
               liftIO $ payForVoucher d voucher
               return Ok
             else