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

macos fsync issues

This commit is contained in:
voidlizard 2025-08-22 16:14:21 +03:00
parent 96726cf287
commit 783481af76
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Fsync.hs
View File

@ -3,9 +3,12 @@
{-# LANGUAGE CPP #-}
module HBS2.Storage.NCQ3.Internal.Fsync where
import HBS2.Storage.NCQ3.Internal.Prelude
import Foreign.C.Types
import System.Posix.Types
import System.Posix.Unistd (fileSynchronise)
import Foreign.C.Error (throwErrnoIfMinus1_)
#ifdef darwin_HOST_OS
@ -17,12 +20,12 @@ foreign import capi unsafe "fcntl.h value F_FULLFSYNC"
c_fcntl :: CInt -> CInt -> CInt -> IO ()
c_fcntl fd cmd arg = do
_ <- c_fcntl_raw fd cmd arg
debug $ "c_fcntl" <+> viaShow fd <+> viaShow cmd <+> viaShow arg
throwErrnoIfMinus1_ "fcntl(F_FULLFSYNC)" (c_fcntl_raw fd cmd arg)
pure ()
#endif
fileSynchronisePortable :: Fd -> IO ()
fileSynchronisePortable fd@(Fd fdi) = do
#if defined(darwin_HOST_OS)
@ -33,3 +36,4 @@ fileSynchronisePortable fd@(Fd fdi) = do
{-# INLINE fileSynchronisePortable #-}