From ca2c25b06b90f77e8941f3e12f679cd201a2304e Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Mon, 5 Dec 2022 14:43:14 -0700
Subject: [PATCH] increase http timeout to 10 minutes jic

---
 src/Cli/Cli.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Cli/Cli.hs b/src/Cli/Cli.hs
index a0ee4de..6c06234 100644
--- a/src/Cli/Cli.hs
+++ b/src/Cli/Cli.hs
@@ -515,7 +515,7 @@ upload (Upload name mpkg shouldIndex) = do
     noBody <-
         parseRequest ("POST " <> show publishCfgRepoLocation <> "/admin/v0/upload")
             <&> setRequestHeaders [("accept", "text/plain")]
-            <&> setRequestResponseTimeout (responseTimeoutMicro (180_000_000)) -- 3 minutes
+            <&> setRequestResponseTimeout (responseTimeoutMicro (600_000_000)) -- 10 minutes
             <&> applyBasicAuth (B8.pack publishCfgRepoUser) (B8.pack publishCfgRepoPass)
     size <- getFileSize pkg
     bar <- newProgressBar defStyle 30 (Progress 0 (fromIntegral size) ())