diff --git a/src/PaymentServer/Main.hs b/src/PaymentServer/Main.hs
index 8ca22063697f89c3b83a30b44732036e8f3f4063..6655c8aaba550bb36e275854ba6fcbdc83787842 100644
--- a/src/PaymentServer/Main.hs
+++ b/src/PaymentServer/Main.hs
@@ -31,6 +31,7 @@ import Network.Wai.Handler.Warp
   ( Port
   , defaultSettings
   , setPort
+  , setTimeout
   , setOnException
   , setOnExceptionResponse
   , runSettings
@@ -245,6 +246,7 @@ getRunner endpoint =
     onExceptionResponse = (responseLBS status500 []) . LBS.fromString . ("exception: " ++) . show
     settings =
       setPort (getPortNumber endpoint) .
+      setTimeout 300 .
       setOnException onException .
       setOnExceptionResponse onExceptionResponse $
       defaultSettings
diff --git a/src/PaymentServer/Redemption.hs b/src/PaymentServer/Redemption.hs
index f12b247700a3ab1fc6dbb7a060eb9f47d2cda2eb..53f65736fbba74c209bf8285d219f0d62c9f0995 100644
--- a/src/PaymentServer/Redemption.hs
+++ b/src/PaymentServer/Redemption.hs
@@ -21,7 +21,6 @@ import Data.Text
   ( Text
   , pack
   )
-import qualified Data.Text.IO as TextIO
 import Data.Text.Encoding
   ( encodeUtf8
   )