Improve displayed values for process, network and node types

1 files changed, 2 insertions, 1 deletions

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