Skip to content
Snippets Groups Projects
Unverified Commit dc3d1f08 authored by Jean-Paul Calderone's avatar Jean-Paul Calderone
Browse files

debug print!

parent c5240ad3
No related branches found
No related tags found
1 merge request!62Delayed redemption response
...@@ -166,7 +166,9 @@ redemptionServer = redeem ...@@ -166,7 +166,9 @@ redemptionServer = redeem
-- between tries. -- between tries.
retry :: IO (Either RedeemError()) -> IO (Either RedeemError()) retry :: IO (Either RedeemError()) -> IO (Either RedeemError())
retry op = retry op =
retrying policy shouldRetry (\_ -> op) retrying policy shouldRetry $ \_ -> do
putStrLn "Trying now"
op
where where
-- Total duration for which to retry in milliseconds. -- Total duration for which to retry in milliseconds.
totalRetryDuration = 3 * 60 * 1000 totalRetryDuration = 3 * 60 * 1000
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment