@@ -13,6 +13,7 @@ import System.Win32.File (flushFileBuffers)
1313#else
1414import System.Posix.Unistd (fileSynchroniseDataOnly)
1515import System.Posix.IO (handleToFd)
16+import Foreign.C
1617#endif
1718
1819import System.IO (withFile, IOMode(WriteMode), hPutStr, Handle)
@@ -21,7 +22,7 @@ import qualified Data.ByteString.Lazy as BS
2122#if defined(mingw32_HOST_OS)
2223import ProjectM36.Win32Handle
2324#else
24−foreign import ccall unsafe "cDirectoryFsync" cHSDirectoryFsync :: CString -> IO (CInt)
25+foreign import ccall unsafe "cDirectoryFsync" cHSDirectoryFsync :: CString -> IO CInt
2526#endif
2627
2728data DiskSync = NoDiskSync | FsyncDiskSync