[commit: packages/unix] master: Temporary workaround for addressing #7359 (88bfec0)
git at git.haskell.org
git at git.haskell.org
Thu Nov 7 09:22:35 UTC 2013
Repository : ssh://git@git.haskell.org/unix
On branch : master
Link : http://git.haskell.org/packages/unix.git/commitdiff/88bfec0cf55f8c9ad74881d48cf8756c9fe627aa
>---------------------------------------------------------------
commit 88bfec0cf55f8c9ad74881d48cf8756c9fe627aa
Author: Herbert Valerio Riedel <hvr at gnu.org>
Date: Thu Nov 7 10:21:17 2013 +0100
Temporary workaround for addressing #7359
Signed-off-by: Herbert Valerio Riedel <hvr at gnu.org>
>---------------------------------------------------------------
88bfec0cf55f8c9ad74881d48cf8756c9fe627aa
System/Posix/Signals.hsc | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/System/Posix/Signals.hsc b/System/Posix/Signals.hsc
index eb46ba4..4b5321e 100644
--- a/System/Posix/Signals.hsc
+++ b/System/Posix/Signals.hsc
@@ -616,6 +616,17 @@ foreign import ccall unsafe "sigfillset"
foreign import ccall unsafe "sigismember"
c_sigismember :: Ptr CSigset -> CInt -> IO CInt
+#elif defined(darwin_HOST_OS) && __GLASGOW_HASKELL__ < 706
+-- see http://ghc.haskell.org/trac/ghc/ticket/7359#comment:3
+-- To be removed when support for GHC 7.4.x is dropped
+foreign import ccall unsafe "__hscore_sigdelset"
+ c_sigdelset :: Ptr CSigset -> CInt -> IO CInt
+
+foreign import ccall unsafe "__hscore_sigfillset"
+ c_sigfillset :: Ptr CSigset -> IO CInt
+
+foreign import ccall unsafe "__hscore_sigismember"
+ c_sigismember :: Ptr CSigset -> CInt -> IO CInt
#else
foreign import capi unsafe "signal.h sigdelset"
c_sigdelset :: Ptr CSigset -> CInt -> IO CInt
More information about the ghc-commits
mailing list