Skip to content
Snippets Groups Projects
Commit 757bf44b authored by Herbert Valerio Riedel's avatar Herbert Valerio Riedel :man_dancing:
Browse files

Be more explicit in WARNING what will be thrown

parent dbec02cc
No related branches found
No related tags found
No related merge requests found
...@@ -239,7 +239,7 @@ foreign import capi safe "unistd.h fsync" ...@@ -239,7 +239,7 @@ foreign import capi safe "unistd.h fsync"
c_fsync :: Fd -> IO CInt c_fsync :: Fd -> IO CInt
#else #else
{-# WARNING fileSynchronise {-# WARNING fileSynchronise
"operation will throw exception (CPP guard: @#if HAVE_FSYNC@)" #-} "operation will throw 'IOError' \"unsupported operation\" (CPP guard: @#if HAVE_FSYNC@)" #-}
fileSynchronise _ = ioError (ioeSetLocation unsupportedOperation fileSynchronise _ = ioError (ioeSetLocation unsupportedOperation
"fileSynchronise") "fileSynchronise")
#endif #endif
...@@ -260,7 +260,7 @@ foreign import capi safe "unistd.h fdatasync" ...@@ -260,7 +260,7 @@ foreign import capi safe "unistd.h fdatasync"
c_fdatasync :: Fd -> IO CInt c_fdatasync :: Fd -> IO CInt
#else #else
{-# WARNING fileSynchroniseDataOnly {-# WARNING fileSynchroniseDataOnly
"operation will throw exception (CPP guard: @#if HAVE_FDATASYNC@)" #-} "operation will throw 'IOError' \"unsupported operation\" (CPP guard: @#if HAVE_FDATASYNC@)" #-}
fileSynchroniseDataOnly _ = ioError (ioeSetLocation unsupportedOperation fileSynchroniseDataOnly _ = ioError (ioeSetLocation unsupportedOperation
"fileSynchroniseDataOnly") "fileSynchroniseDataOnly")
#endif #endif
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment