From a55cb0304bf9ba3d20146d25b1fed4116819f4b3 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Mon, 28 Nov 2011 18:20:04 +0000 Subject: Use capi some more (part of #5480) --- System/Posix/Signals.hsc | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'System/Posix/Signals.hsc') 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 -- cgit v1.2.3