From a33fcae7cb9e5d06659b57934acadf1fb921a554 Mon Sep 17 00:00:00 2001
From: KtorZ <matthias.benkort@gmail.com>
Date: Fri, 21 Jul 2023 10:41:26 +0200
Subject: [PATCH] Slightly tweak server parameters

  - Increase network timeout from 30 -> 120 seconds
  - Ensure request body is always flushed to client, even if not fully consumed.
---
 src/Kupo/App/Http.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Kupo/App/Http.hs b/src/Kupo/App/Http.hs
index d46c52dc..10a70c68 100644
--- a/src/Kupo/App/Http.hs
+++ b/src/Kupo/App/Http.hs
@@ -191,6 +191,8 @@ httpServer tr withDatabase forceRollback fetchBlock patternsVar readHealth host
         & Warp.setPort port
         & Warp.setHost (fromString host)
         & Warp.setServerName "kupo"
+        & Warp.setTimeout 120
+        & Warp.setMaximumBodyFlush Nothing
         & Warp.setBeforeMainLoop (logWith tr HttpServerListening{host,port})
 
     withDatabaseWrapped send connectionType action = do