diff options
| author |  Ian Lynagh <igloo@earth.li> | 2011-11-28 18:20:04 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-11-28 18:20:04 +0000 |
| commit | a55cb0304bf9ba3d20146d25b1fed4116819f4b3 (patch) | |
| tree | b179e22ef6edafc5a0394b47f9d0010d8275c67b /System/Posix/Signals.hsc | |
| parent | e33f5019b8739fee8b5af319698945250ad532ec (diff) | |
Use capi some more (part of #5480)
Diffstat (limited to 'System/Posix/Signals.hsc')
| -rw-r--r-- | System/Posix/Signals.hsc | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/System/Posix/Signals.hsc b/System/Posix/Signals.hsc index 4257688..463dfc7 100644 --- a/System/Posix/Signals.hsc +++ b/System/Posix/Signals.hsc @@ -597,8 +597,8 @@ awaitSignal maybe_sigset = do -- (-1) with errno set to EINTR. -- XXX My manpage says it can also return EFAULT. And why is ignoring -- EINTR the right thing to do? - -foreign import ccall unsafe "sigsuspend" + +foreign import capi unsafe "HsUnix.h sigsuspend" c_sigsuspend :: Ptr CSigset -> IO CInt #endif @@ -612,16 +612,16 @@ foreign import ccall unsafe "sigfillset" foreign import ccall unsafe "sigismember" c_sigismember :: Ptr CSigset -> CInt -> IO CInt #else -foreign import capi unsafe "HsBase.h sigdelset" +foreign import capi unsafe "HsUnix.h sigdelset" c_sigdelset :: Ptr CSigset -> CInt -> IO CInt -foreign import capi unsafe "HsBase.h sigfillset" +foreign import capi unsafe "HsUnix.h sigfillset" c_sigfillset :: Ptr CSigset -> IO CInt -foreign import capi unsafe "HsBase.h sigismember" +foreign import capi unsafe "HsUnix.h sigismember" c_sigismember :: Ptr CSigset -> CInt -> IO CInt #endif /* __HUGS__ */ -foreign import ccall unsafe "sigpending" +foreign import capi unsafe "HsUnix.h sigpending" c_sigpending :: Ptr CSigset -> IO CInt |