From 1307af400f5aa9326eb5c7fae13004844bedc24e Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Wed, 3 Jun 2020 12:16:38 -0400
Subject: [PATCH] Get rid of debug prints now that it works
I should really learn how to do some real logging...
---
src/PaymentServer/Redemption.hs | 6 +-----
1 file changed, 1 insertion(+), 5 deletions(-)
diff --git a/src/PaymentServer/Redemption.hs b/src/PaymentServer/Redemption.hs
index 7676c87..c395635 100644
--- a/src/PaymentServer/Redemption.hs
+++ b/src/PaymentServer/Redemption.hs
@@ -166,11 +166,7 @@ redemptionServer = redeem
-- between tries.
retry :: IO (Either RedeemError()) -> IO (Either RedeemError())
retry op =
- retrying policy shouldRetry $ \_ -> do
- putStrLn "Trying now"
- result <- op
- putStrLn $ "Result is " ++ (show result)
- return result
+ retrying policy shouldRetry $ \_ -> op
where
-- Total duration for which to retry in milliseconds.
totalRetryDuration = 3 * 60 * 1000
--
GitLab