From 757bf44bb4895fc561a2e5dd2f602168478741ec Mon Sep 17 00:00:00 2001
From: Herbert Valerio Riedel <hvr@gnu.org>
Date: Mon, 15 Dec 2014 23:33:15 +0100
Subject: [PATCH] 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
--
GitLab