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"
c_fsync :: Fd -> IO CInt
#else
{-# 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")
#endif
......@@ -260,7 +260,7 @@ foreign import capi safe "unistd.h fdatasync"
c_fdatasync :: Fd -> IO CInt
#else
{-# 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")
#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