diff --git a/src/PaymentServer/Redemption.hs b/src/PaymentServer/Redemption.hs
index 3ea1bb34047c096e34739847474b580767683b6f..3c80d6f8a7e27dfde7c1dc47248fb74826040ddf 100644
--- a/src/PaymentServer/Redemption.hs
+++ b/src/PaymentServer/Redemption.hs
@@ -168,7 +168,9 @@ retry :: IO (Either RedeemError()) -> IO (Either RedeemError())
 retry op =
   retrying policy shouldRetry $ \_ -> do
   putStrLn "Trying now"
-  op
+  result <- op
+  putStrLn $ "Result is " ++ (show result)
+  return result
   where
     -- Total duration for which to retry in milliseconds.
     totalRetryDuration = 3 * 60 * 1000