diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-09-14 21:02:50 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-09-15 21:11:01 +0200 |
| commit | ed6d95dde5f12727cfa06b851c70b07cb415e9d6 (patch) | |
| tree | 57056b70fc9930db23f29597004dd35fbb70fafc /src/Process.hs | |
| parent | 8e3d03e55793b49dc6844b23877c84d111e8d7d1 (diff) | |
Support zero timeout
Changelog: Support zero as a timeout multiplyer
Diffstat (limited to 'src/Process.hs')
| -rw-r--r-- | src/Process.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |