From 757bf44bb4895fc561a2e5dd2f602168478741ec Mon Sep 17 00:00:00 2001 From: Herbert Valerio Riedel Date: Mon, 15 Dec 2014 23:33:15 +0100 Subject: Be more explicit in WARNING what will be thrown --- System/Posix/Unistd.hsc | 4 ++-- 1 file 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 -- cgit v1.2.3