Get rid of debug prints now that it works

I should really learn how to do some real logging...

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