From ed6d95dde5f12727cfa06b851c70b07cb415e9d6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 14 Sep 2025 21:02:50 +0200
Subject: Support zero timeout

Changelog: Support zero as a timeout multiplyer
---
 src/Process.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Process.hs')

diff --git a/src/Process.hs b/src/Process.hs
index 0c24b4f..57411d7 100644
--- a/src/Process.hs
+++ b/src/Process.hs
@@ -178,7 +178,7 @@ closeProcess timeout p = do
 
 closeTestProcess :: Process -> TestRun ()
 closeTestProcess process = do
-    timeout <- liftIO . readMVar =<< asks (teTimeout . fst)
+    timeout <- getCurrentTimeout
     closeProcess timeout process
 
 withProcess :: Either Network Node -> ProcName -> Maybe Signal -> String -> (Process -> TestRun a) -> TestRun a
-- 
cgit v1.2.3