debug print!

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