From 7b393ac0970882e1fc56fad3e7f01ef712552c54 Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Tue, 1 Aug 2023 13:55:36 -0400
Subject: [PATCH] increase upload timeout

---
 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 153eb37..dfdc1bb 100644
--- a/src/Cli/Cli.hs
+++ b/src/Cli/Cli.hs
@@ -529,7 +529,7 @@ upload (Upload name mpkg shouldIndex arches) = do
     noBody <-
         parseRequest ("POST " <> show publishCfgRepoLocation <> "/admin/v0/upload")
             <&> setRequestHeaders [("accept", "text/plain")]
-            <&> setRequestResponseTimeout (responseTimeoutMicro (600_000_000)) -- 10 minutes
+            <&> setRequestResponseTimeout (responseTimeoutMicro (5_400_000_000)) -- 90 minutes
             <&> applyBasicAuth (B8.pack publishCfgRepoUser) (B8.pack publishCfgRepoPass)
     size <- getFileSize pkg
     bar <- newProgressBar defStyle 30 (Progress 0 (fromIntegral size) ())