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 #-} {-# LANGUAGE CPP #-}
module HBS2.Storage.NCQ3.Internal.Fsync where module HBS2.Storage.NCQ3.Internal.Fsync where
import HBS2.Storage.NCQ3.Internal.Prelude
import Foreign.C.Types import Foreign.C.Types
import System.Posix.Types import System.Posix.Types
import System.Posix.Unistd (fileSynchronise) import System.Posix.Unistd (fileSynchronise)
import Foreign.C.Error (throwErrnoIfMinus1_)
#ifdef darwin_HOST_OS #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 :: CInt -> CInt -> CInt -> IO ()
c_fcntl fd cmd arg = do 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 () pure ()
#endif #endif
fileSynchronisePortable :: Fd -> IO () fileSynchronisePortable :: Fd -> IO ()
fileSynchronisePortable fd@(Fd fdi) = do fileSynchronisePortable fd@(Fd fdi) = do
#if defined(darwin_HOST_OS) #if defined(darwin_HOST_OS)
@ -33,3 +36,4 @@ fileSynchronisePortable fd@(Fd fdi) = do
{-# INLINE fileSynchronisePortable #-} {-# INLINE fileSynchronisePortable #-}