Add getPid

This allows fetching a process' ID without using `unsafeProcessHandle`.

Author: 9999years

src/System/Process/Typed.hs

@@ -109,6 +109,9 @@ module System.Process.Typed
     , checkExitCode
     , checkExitCodeSTM
 
+      -- ** Process ID
+    , getPid
+
       -- ** Process streams
     , getStdin
     , getStdout
@@ -121,6 +124,7 @@ module System.Process.Typed
       -- * Re-exports
     , ExitCode (..)
     , P.StdStream (..)
+    , P.Pid
 
       -- * Unsafe functions
     , unsafeProcessHandle
@@ -641,6 +645,17 @@ checkExitCodeSTM p = do
             , eceStderr = L.empty
             }
 
+-- | Returns the PID (process ID) of a subprocess.
+--
+-- 'Nothing' is returned if the underlying 'P.ProcessHandle' was already closed.
+-- Otherwise a PID is returned that remains valid as long as the handle is
+-- open. The operating system may reuse the PID as soon as the last handle to
+-- the process is closed.
+--
+-- @since 0.2.12.0
+getPid :: Process stdin stdout stderr -> IO (Maybe P.Pid)
+getPid = P.getPid . pHandle
+
 -- | Internal
 clearStreams :: ProcessConfig stdin stdout stderr -> ProcessConfig () () ()
 clearStreams pc = pc