From f1545e6e932b294ec12142141eaaaadd9318ee8d Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Wed, 3 Jun 2020 11:18:12 -0400
Subject: [PATCH] more debug
---
src/PaymentServer/Redemption.hs | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/PaymentServer/Redemption.hs b/src/PaymentServer/Redemption.hs
index 3ea1bb3..3c80d6f 100644
--- a/src/PaymentServer/Redemption.hs
+++ b/src/PaymentServer/Redemption.hs
@@ -168,7 +168,9 @@ retry :: IO (Either RedeemError()) -> IO (Either RedeemError())
retry op =
retrying policy shouldRetry $ \_ -> do
putStrLn "Trying now"
- op
+ result <- op
+ putStrLn $ "Result is " ++ (show result)
+ return result
where
-- Total duration for which to retry in milliseconds.
totalRetryDuration = 3 * 60 * 1000
--
GitLab