diff --git a/src/PaymentServer/Redemption.hs b/src/PaymentServer/Redemption.hs
index ca7ec930bc4267a304fa5809f3e2119985f64459..3ea1bb34047c096e34739847474b580767683b6f 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