diff options
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 |