From ef881128225e94ecc5e1e69230181c7076a9c76c Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Mon, 9 Jun 2025 07:42:27 +0300
Subject: [PATCH] FuckOS X storage patch / 2

---
 hbs2-log-structured/lib/HBS2/Data/Log/Structured/NCQ.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/hbs2-log-structured/lib/HBS2/Data/Log/Structured/NCQ.hs b/hbs2-log-structured/lib/HBS2/Data/Log/Structured/NCQ.hs
index da916517..6ead9253 100644
--- a/hbs2-log-structured/lib/HBS2/Data/Log/Structured/NCQ.hs
+++ b/hbs2-log-structured/lib/HBS2/Data/Log/Structured/NCQ.hs
@@ -41,6 +41,7 @@ import System.Posix
 import System.Posix.Fcntl
 import System.Posix.IO
 import System.Posix.Files (setFileSize)
+import System.Posix.IO.ByteString as Posix
 import System.FilePath.Posix
 import System.IO.MMap
 import System.IO.Temp
@@ -215,10 +216,11 @@ nwayFileAllocate :: Fd -> COff -> COff -> IO ()
 nwayFileAllocate fd offset size = do
   let chunk = BS.replicate (fromIntegral size) 0
   _ <- fdSeek fd AbsoluteSeek (fromIntegral offset)
-  void $ fdWrite fd chunk
+  void $ Posix.fdWrite fd chunk
 #else
 nwayFileAllocate = fileAllocate
 #endif
+{-# INLINE nwayFileAllocate #-}
 
 
 nwayWriteBatch :: MonadUnliftIO m