Add System.Process.Env(.OsString) modules

Author: tbidne

System/Process/Env.hs

@@ -0,0 +1,21 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  System.Process.Env
+-- Copyright   :  (c) The University of Glasgow 2004-2008
+-- License     :  BSD-style (see the file libraries/base/LICENSE)
+--
+-- Maintainer  :  libraries@haskell.org
+-- Stability   :  experimental
+-- Portability :  non-portable (requires concurrency)
+--
+-- Miscellaneous information about the system environment.
+--
+-- @since X.Y.Z
+--
+-----------------------------------------------------------------------------
+
+module System.Process.Env (
+    Env.getArgs
+    ) where
+
+import qualified System.Environment as Env

System/Process/Env/OsString.hs

@@ -0,0 +1,45 @@
+{-# LANGUAGE CPP #-}
+
+#if !MIN_VERSION_filepath(1,5,0)
+-- Silence the warning on System.OsString.Internal.Types import. It exists
+-- (deprecated) in filepath 1.4.100.0 && < 1.5.0.0. For filepath >= 1.5,
+-- it exists (undeprecated) in os-string.
+{-# OPTIONS_GHC -Wno-deprecations #-}
+#endif
+
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  System.Process.Env.OsString
+-- Copyright   :  (c) The University of Glasgow 2004-2008
+-- License     :  BSD-style (see the file libraries/base/LICENSE)
+--
+-- Maintainer  :  libraries@haskell.org
+-- Stability   :  experimental
+-- Portability :  non-portable (requires concurrency)
+--
+-- Miscellaneous information about the system environment.
+--
+-- @since X.Y.Z
+--
+-----------------------------------------------------------------------------
+
+module System.Process.Env.OsString (
+    getArgs
+    ) where
+
+import Data.Coerce (coerce)
+#if defined(mingw32_HOST_OS)
+import qualified System.Win32.WindowsString.Console as Platform
+import System.OsString.Internal.Types
+  ( OsString(OsString), WindowsString(WindowsString) )
+#else
+import System.OsString.Internal.Types
+  ( OsString(OsString), PosixString(PosixString) )
+import qualified System.Posix.Env.PosixString as Platform
+#endif
+
+-- | 'System.Environment.getArgs' for 'OsString'.
+--
+-- @since X.Y.Z
+getArgs :: IO [OsString]
+getArgs = coerce Platform.getArgs

changelog.md

@@ -1,5 +1,10 @@
 # Changelog for [`process` package](http://hackage.haskell.org/package/process)
 
+## X.Y.Z
+
+* Add `System.Process.Env` and `System.Process.Env.OsString`. Bumps
+  `filepath >= 1.4.100.0`.
+
 ## 1.6.25.0 *September 2024*
 
 * Fix build with Javascript backend ([#327](https://github.com/haskell/process/issues/327))

process.cabal

@@ -41,6 +41,11 @@ source-repository head
     type:     git
     location: https://github.com/haskell/process.git
 
+flag os-string
+    description: Use the new os-string package
+    default: False
+    manual: False
+
 library
     default-language: Haskell2010
     other-extensions:
@@ -56,19 +61,21 @@ library
         System.Process
         System.Process.CommunicationHandle
         System.Process.CommunicationHandle.Internal
+        System.Process.Env
+        System.Process.Env.OsString
         System.Process.Internals
     other-modules: System.Process.Common
     if os(windows)
         c-sources:
             cbits/win32/runProcess.c
         other-modules: System.Process.Windows
-        build-depends: Win32 >=2.4 && < 2.15
+        build-depends: Win32 >=2.14 && < 2.15
         -- ole32 and rpcrt4 are needed to create GUIDs for unique named pipes
         -- for process.
         extra-libraries: kernel32, ole32, rpcrt4
         cpp-options: -DWINDOWS
     else
-        build-depends: unix >= 2.5 && < 2.9
+        build-depends: unix >= 2.8.0.0 && < 2.9
         if arch(javascript)
             js-sources:
                 jsbits/process.js
@@ -90,5 +97,10 @@ library
 
     build-depends: base      >= 4.10 && < 4.22,
                    directory >= 1.1 && < 1.4,
-                   filepath  >= 1.2 && < 1.6,
                    deepseq   >= 1.1 && < 1.6
+
+    if flag(os-string)
+        build-depends: filepath >= 1.5.0.0 && <1.6,
+                       os-string >= 2.0.0 && <2.1
+    else
+        build-depends: filepath >= 1.4.100.0 && < 1.5.0.0