From a699c3ddd443a2d6113fe3b08f7ae81c510239e6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Fri, 9 Jan 2026 21:35:28 +0100
Subject: Improve displayed values for process, network and node types

---
 src/Script/Shell.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Script')

diff --git a/src/Script/Shell.hs b/src/Script/Shell.hs
index 15c0c2c..dea3fe9 100644
--- a/src/Script/Shell.hs
+++ b/src/Script/Shell.hs
@@ -183,6 +183,9 @@ executeScript sei@ShellExecInfo {..} pstdin pstdout pstderr (ShellScript stateme
 
 spawnShell :: Node -> ProcName -> ShellScript -> TestRun Process
 spawnShell procNode procName script = do
+    idVar <- asks $ teNextProcId . fst
+    procId <- liftIO $ modifyMVar idVar (\x -> return ( x + 1, ProcessId x ))
+
     procOutput <- liftIO $ newTVarIO []
     procIgnore <- liftIO $ newTVarIO ( 0, [] )
     seiStatusVar <- liftIO $ newEmptyMVar
-- 
cgit v1.2.3