From dc3d1f08e9fa4ce0aef2f7a46db3ede6174e456a Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Wed, 3 Jun 2020 11:08:23 -0400
Subject: [PATCH] debug print!
---
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 ca7ec93..3ea1bb3 100644
--- a/src/PaymentServer/Redemption.hs
+++ b/src/PaymentServer/Redemption.hs
@@ -166,7 +166,9 @@ redemptionServer = redeem
-- between tries.
retry :: IO (Either RedeemError()) -> IO (Either RedeemError())
retry op =
- retrying policy shouldRetry (\_ -> op)
+ retrying policy shouldRetry $ \_ -> do
+ putStrLn "Trying now"
+ op
where
-- Total duration for which to retry in milliseconds.
totalRetryDuration = 3 * 60 * 1000
--
GitLab