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) ())