From 8b61b194f2f4759689844ab57f2ca7a4b912c468 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 4 Apr 2026 16:29:55 +0200
Subject: Add pid member to the Process type

Changelog: Added `pid` member to the `Process` type to get its system PID
---
 src/GDB.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/GDB.hs')

diff --git a/src/GDB.hs b/src/GDB.hs
index ccb9dc3..4151946 100644
--- a/src/GDB.hs
+++ b/src/GDB.hs
@@ -73,6 +73,7 @@ gdbStart onCrash = do
         }
     pout <- liftIO $ newTVarIO []
     ignore <- liftIO $ newTVarIO ( 0, [] )
+    pid <- liftIO $ getPid handle
 
     let process = Process
             { procId = ProcessId (-2)
@@ -83,6 +84,7 @@ gdbStart onCrash = do
             , procIgnore = ignore
             , procKillWith = Nothing
             , procNode = undefined
+            , procPid = pid
             }
     gdb <- GDB
         <$> pure process
-- 
cgit v1.2.3