Improve displayed values for process, network and node types

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