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