summaryrefslogtreecommitdiff
path: root/src/Run.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Run.hs')
-rw-r--r--src/Run.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Run.hs b/src/Run.hs
index 45eec46..54df37b 100644
--- a/src/Run.hs
+++ b/src/Run.hs
@@ -59,6 +59,7 @@ runTest out opts gdefs test = do
failedVar <- newTVarIO Nothing
objIdVar <- newMVar 1
+ procIdVar <- newMVar 1
procVar <- newMVar []
timeoutVar <- newMVar ( optTimeout opts, 0 )
@@ -73,6 +74,7 @@ runTest out opts gdefs test = do
, teFailed = failedVar
, teOptions = opts
, teNextObjId = objIdVar
+ , teNextProcId = procIdVar
, teProcesses = procVar
, teTimeout = timeoutVar
, teGDB = fst <$> mgdb