From b3a03521132c21316695dc0e9fffffa90454402c Mon Sep 17 00:00:00 2001 From: Mike Pilgrem Date: Fri, 19 Jan 2024 21:37:03 +0000 Subject: [PATCH] Reduce `upload` test's latency by 4 seconds --- tests/integration/tests/upload/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/integration/tests/upload/Main.hs b/tests/integration/tests/upload/Main.hs index 888568ced0..2f838c5c60 100644 --- a/tests/integration/tests/upload/Main.hs +++ b/tests/integration/tests/upload/Main.hs @@ -28,7 +28,7 @@ withFakeHackage act = do -- Start the fake server withCreateProcess (proc stackEnv $ withNetworkArgs ++ ["FakeHackage.hs"]) $ \_ _ _ _ -> do -- Wait for the fake server to start accepting requests - threadDelay 10000000 + threadDelay 6000000 act where withNetworkArgs = ["runghc", "--package", "network"]