From e290dac0c3c74c05e8911351e2d7179e1dbcf262 Mon Sep 17 00:00:00 2001
From: towards-a-new-leftypol <paul_cockshott@protonmail.com>
Date: Mon, 26 Feb 2024 19:24:42 -0500
Subject: [PATCH] increase POST request timeout

---
 src/DataClient.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/DataClient.hs b/src/DataClient.hs
index f05a41e..330c1e5 100644
--- a/src/DataClient.hs
+++ b/src/DataClient.hs
@@ -25,6 +25,7 @@ import Network.HTTP.Client
     ( newManager
     , managerSetMaxHeaderLength
     , httpLbs
+    , responseTimeoutNone
     )
 import qualified Data.ByteString.Lazy.Char8 as BL
 import Network.HTTP.Client.Conduit (defaultManagerSettings)
@@ -90,8 +91,9 @@ post
   -> IO (Either HttpError LBS.ByteString)
 post settings path payload return_repr = do
     let requestUrl = T.postgrest_url settings ++ path
-    initReq <- parseRequest requestUrl
-    let req = setRequestMethod "POST"
+    req <- parseRequest requestUrl
+    let initReq = setRequestResponseTimeout responseTimeoutNone req
+    let request = setRequestMethod "POST"
             . setRequestHeader "Authorization" [ jwt_header ]
             . setRequestHeader "Content-Type" [ "application/json" ]
             . setRequestBodyLBS payload
@@ -100,7 +102,7 @@ post settings path payload return_repr = do
 
     putStrLn $ "posting to " ++ requestUrl
     -- putStrLn $ "Payload: " ++ (LC8.unpack payload)
-    handleHttp (httpLBS req)
+    handleHttp (httpLBS request)
 
     where
       jwt_header = C8.pack $ "Bearer " ++ T.jwt settings