diff --git a/src/PaymentServer/Redemption.hs b/src/PaymentServer/Redemption.hs
index 7676c87faf33e49257aece1dd9d3fb2c4cca8afe..c395635fb42ab0e5ab973b628a530095aeb32bbd 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