Export 'fileBlockSize' unconditionally

Author: DanielG

System/Posix/Files.hsc

@@ -57,10 +57,7 @@ module System.Posix.Files (
     getFileStatus, getFdStatus, getSymbolicLinkStatus,
     -- ** Querying file status
     deviceID, fileID, fileMode, linkCount, fileOwner, fileGroup,
-    specialDeviceID, fileSize,
-#ifdef HAVE_STRUCT_STAT_ST_BLKSIZE
-    fileBlockSize,
-#endif
+    specialDeviceID, fileSize, fileBlockSize,
     fileBlocks, accessTime, modificationTime,
     statusChangeTime,
     accessTimeHiRes, modificationTimeHiRes, statusChangeTimeHiRes,

System/Posix/Files/ByteString.hsc

@@ -57,10 +57,7 @@ module System.Posix.Files.ByteString (
     getFileStatus, getFdStatus, getSymbolicLinkStatus,
     -- ** Querying file status
     deviceID, fileID, fileMode, linkCount, fileOwner, fileGroup,
-    specialDeviceID, fileSize,
-#ifdef HAVE_STRUCT_STAT_ST_BLKSIZE
-    fileBlockSize,
-#endif
+    specialDeviceID, fileSize, fileBlockSize,
     fileBlocks, accessTime, modificationTime,
     statusChangeTime,
     accessTimeHiRes, modificationTimeHiRes, statusChangeTimeHiRes,

System/Posix/Files/Common.hsc

@@ -49,10 +49,7 @@ module System.Posix.Files.Common (
     getFdStatus,
     -- ** Querying file status
     deviceID, fileID, fileMode, linkCount, fileOwner, fileGroup,
-    specialDeviceID, fileSize,
-#ifdef HAVE_STRUCT_STAT_ST_BLKSIZE
-    fileBlockSize,
-#endif
+    specialDeviceID, fileSize, fileBlockSize,
     fileBlocks, accessTime, modificationTime,
     statusChangeTime,
     accessTimeHiRes, modificationTimeHiRes, statusChangeTimeHiRes,
@@ -299,6 +296,10 @@ statusChangeTime (FileStatus stat) =
 fileBlockSize    :: FileStatus -> CBlkSize
 fileBlockSize (FileStatus stat) =
   unsafePerformIO $ withForeignPtr stat $ (#peek struct stat, st_blksize)
+#else
+{-# WARNING fileBlockSize "fileBlockSize: not available on this platform" #-}
+fileBlockSize =
+  error "fileBlockSize: not available on this platform"
 #endif
 
 accessTimeHiRes (FileStatus stat) =