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.Fcntl
import System.Posix.IO import System.Posix.IO
import System.Posix.Files (setFileSize) import System.Posix.Files (setFileSize)
import System.Posix.IO.ByteString as Posix
import System.FilePath.Posix import System.FilePath.Posix
import System.IO.MMap import System.IO.MMap
import System.IO.Temp import System.IO.Temp
@ -215,10 +216,11 @@ nwayFileAllocate :: Fd -> COff -> COff -> IO ()
nwayFileAllocate fd offset size = do nwayFileAllocate fd offset size = do
let chunk = BS.replicate (fromIntegral size) 0 let chunk = BS.replicate (fromIntegral size) 0
_ <- fdSeek fd AbsoluteSeek (fromIntegral offset) _ <- fdSeek fd AbsoluteSeek (fromIntegral offset)
void $ fdWrite fd chunk void $ Posix.fdWrite fd chunk
#else #else
nwayFileAllocate = fileAllocate nwayFileAllocate = fileAllocate
#endif #endif
{-# INLINE nwayFileAllocate #-}
nwayWriteBatch :: MonadUnliftIO m nwayWriteBatch :: MonadUnliftIO m