Use current timeout value when waiting for process termination

1 files changed, 1 insertions, 1 deletions

diff --git a/src/Run.hs b/src/Run.hs
index 4d68fb6..d5b0d29 100644
--- a/src/Run.hs
+++ b/src/Run.hs
@@ -111,7 +111,7 @@ runTest out opts gdefs test = do
     void $ installHandler processStatusChanged oldHandler Nothing
 
     Right () <- runExceptT $ flip runReaderT out $ do
-        maybe (return ()) (closeProcess . snd) mgdb
+        maybe (return ()) (closeProcess 1 . snd) mgdb
     [] <- readMVar procVar
 
     failed <- atomically $ readTVar (teFailed tenv)