Add pid member to the Process type

Changelog: Added `pid` member to the `Process` type to get its system PID

1 files changed, 2 insertions, 0 deletions

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