Add haveStatx

Author: hasufell

System/Posix/Files.hsc

@@ -66,6 +66,7 @@ module System.Posix.Files (
     -- * Extended file status
     ExtendedFileStatus(..),
     CAttributes(..),
+    haveStatx,
     -- ** Obtaining extended file status
     getExtendedFileStatus,
     -- ** Flags

System/Posix/Files/ByteString.hsc

@@ -66,6 +66,7 @@ module System.Posix.Files.ByteString (
     -- * Extended file status
     ExtendedFileStatus(..),
     CAttributes(..),
+    haveStatx,
     -- ** Obtaining extended file status
     getExtendedFileStatus,
     -- ** Flags

System/Posix/Files/Common.hsc

@@ -122,6 +122,7 @@ module System.Posix.Files.Common (
     isDirectoryX,
     isSymbolicLinkX,
     isSocketX,
+    haveStatx,
 
     -- * Setting file sizes
     setFdSize,
@@ -1346,3 +1347,11 @@ getExtendedFileStatus_ fdMay str (StatxFlags flags) (StatxMask masks) = do
 getExtendedFileStatus_ _ _ _ _ = ioError (ioeSetLocation unsupportedOperation "getExtendedFileStatus")
 #endif
 
+-- | Whether 'statx' is available on this platform and 'getExtendedFileStatus' and
+-- related functions will work.
+haveStatx :: Bool
+#ifdef HAVE_STATX
+haveStatx = True
+#else
+haveStatx = False
+#endif

System/Posix/Files/PosixString.hsc

@@ -62,6 +62,7 @@ module System.Posix.Files.PosixString (
     -- * Extended file status
     ExtendedFileStatus(..),
     CAttributes(..),
+    haveStatx,
     -- ** Obtaining extended file status
     getExtendedFileStatus,
     -- ** Flags

changelog.md

@@ -1,5 +1,9 @@
 # Changelog for [`unix` package](http://hackage.haskell.org/package/unix)
 
+## 2.8.4.0 *??? 2023*
+
+  * add `haveStatx`
+
 ## 2.8.3.0 *Oct 2023*
 
   * add `getExtendedFileStatus` (based on `statx`) style functions

unix.cabal

@@ -1,6 +1,6 @@
 cabal-version:  1.12
 name:           unix
-version:        2.8.3.0
+version:        2.8.4.0
 -- NOTE: Don't forget to update ./changelog.md
 
 license:        BSD3