From a79f726495ad32346dc3735a8f25ef3a7c0bce1e Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Mon, 9 Mar 2020 10:34:43 -0400
Subject: [PATCH] Raise the Warp timeout to try to allow large responses to be
sent
---
src/PaymentServer/Main.hs | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/PaymentServer/Main.hs b/src/PaymentServer/Main.hs
index 8ca2206..6655c8a 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
--
GitLab