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/GDB.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/GDB.hs')

diff --git a/src/GDB.hs b/src/GDB.hs
index 8d50d7f..ccb9dc3 100644
--- a/src/GDB.hs
+++ b/src/GDB.hs
@@ -75,7 +75,8 @@ gdbStart onCrash = do
     ignore <- liftIO $ newTVarIO ( 0, [] )
 
     let process = Process
-            { procName = ProcNameGDB
+            { procId = ProcessId (-2)
+            , procName = ProcNameGDB
             , procHandle = Left handle
             , procStdin = hin
             , procOutput = pout
-- 
cgit v1.2.3