Reduce upload test's latency by 4 seconds

commercialhaskell · Jan 19, 2024 · b3a0352 · b3a0352
1 parent b79637a
commit b3a0352
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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"]