voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

FuckOS X storage patch / 2

This commit is contained in:
voidlizard 2025-06-09 07:42:27 +03:00
parent 67081eac22
commit ef88112822
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-log-structured/lib/HBS2/Data/Log/Structured/NCQ.hs
View File

@ -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