TESTING: Longer wait before force killing services

wireapp · Dec 23, 2024 · 6ba5b67 · 6ba5b67
1 parent 727c5b9
commit 6ba5b67
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/integration/test/Testlib/ModService.hs b/integration/test/Testlib/ModService.hs
@@ -409,7 +409,7 @@ cleanupService :: (HasCallStack) => String -> ServiceInstance -> IO ()
 cleanupService logPrefix inst = do
   mPid <- getPid inst.handle
   for_ mPid (signalProcess keyboardSignal)
-  timeout 50000 (waitForProcess inst.handle) >>= \case
+  timeout 1_000_000 (waitForProcess inst.handle) >>= \case
     Just _ ->
       putStrLn $ logPrefix <> " is dead"
     Nothing -> do