add System.PosixCompat.Process

CHANGELOG.md

@@ -1,6 +1,10 @@
+## Version 0.7.1 (2023-11-01)
+
+- Add `System.PosixCompat.Process` module
+
 ## Version 0.7 (2023-03-15)
 
-- Remote `System.PosixCompat.User` module
+- Remove `System.PosixCompat.User` module
 
 ## Version 0.6 (2022-05-22)
 

src/System/PosixCompat.hs

@@ -7,6 +7,7 @@ package, on other platforms it emulates the operations as far as possible.
 -}
 module System.PosixCompat (
       module System.PosixCompat.Files
+    , module System.PosixCompat.Process
     , module System.PosixCompat.Temp
     , module System.PosixCompat.Time
     , module System.PosixCompat.Types
@@ -15,6 +16,7 @@ module System.PosixCompat (
     ) where
 
 import System.PosixCompat.Files
+import System.PosixCompat.Process
 import System.PosixCompat.Temp
 import System.PosixCompat.Time
 import System.PosixCompat.Types

src/System/PosixCompat/Process.hs

@@ -0,0 +1,25 @@
+{-# LANGUAGE CPP #-}
+
+{-|
+This module makes the operations exported by @System.Posix.Process@
+available on all platforms. On POSIX systems it re-exports operations from
+@System.Posix.Process@, on other platforms it emulates the operations as far
+as possible.
+-}
+module System.PosixCompat.Process (
+      getProcessID
+    ) where
+
+#ifdef mingw32_HOST_OS
+
+import System.Posix.Types (ProcessID)
+import System.Win32.Process (getCurrentProcessID)
+
+getProcessID :: IO ProcessID
+getProcessID = fromIntegral <$> getCurrentProcessID
+
+#else
+
+import System.Posix.Process
+
+#endif

unix-compat.cabal

@@ -1,5 +1,5 @@
 name:           unix-compat
-version:        0.7
+version:        0.7.1
 synopsis:       Portable POSIX-compatibility layer.
 description:    This package provides portable implementations of parts
                 of the unix package. This package re-exports the unix
@@ -36,6 +36,7 @@ Library
     System.PosixCompat
     System.PosixCompat.Extensions
     System.PosixCompat.Files
+    System.PosixCompat.Process
     System.PosixCompat.Temp
     System.PosixCompat.Time
     System.PosixCompat.Types