Skip to content
Snippets Groups Projects
Commit 88bfec0c authored by Herbert Valerio Riedel's avatar Herbert Valerio Riedel :man_dancing:
Browse files

Temporary workaround for addressing #7359 


Signed-off-by: Herbert Valerio Riedel's avatarHerbert Valerio Riedel <hvr@gnu.org>
parent 10dbdce2
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
System/Posix/Signals.hsc
+ 11
− 0
View file @ 88bfec0c
...@@ -616,6 +616,17 @@ foreign import ccall unsafe "sigfillset" ...@@ -616,6 +616,17 @@ foreign import ccall unsafe "sigfillset"
foreign import ccall unsafe "sigismember" foreign import ccall unsafe "sigismember"
c_sigismember :: Ptr CSigset -> CInt -> IO CInt 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 #else
foreign import capi unsafe "signal.h sigdelset" foreign import capi unsafe "signal.h sigdelset"
c_sigdelset :: Ptr CSigset -> CInt -> IO CInt c_sigdelset :: Ptr CSigset -> CInt -> IO CInt
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment