diff options
| author |  Herbert Valerio Riedel <hvr@gnu.org> | 2014-12-15 23:33:15 +0100 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2014-12-15 23:33:15 +0100 |
| commit | 757bf44bb4895fc561a2e5dd2f602168478741ec (patch) | |
| tree | 56b2e05601b9cf83e32b849c9422ea72efb68e64 /System | |
| parent | dbec02cc26afd39a35a932dc013175664e3a47eb (diff) | |
Be more explicit in WARNING what will be thrown
Diffstat (limited to 'System')
| -rw-r--r-- | System/Posix/Unistd.hsc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/System/Posix/Unistd.hsc b/System/Posix/Unistd.hsc index 3b8d2e4..3f2d115 100644 --- a/System/Posix/Unistd.hsc +++ b/System/Posix/Unistd.hsc @@ -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 |