From e33f5019b8739fee8b5af319698945250ad532ec Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 26 Nov 2011 16:16:51 +0000 Subject: Convert come FFI bindings to use the capi calling convention --- System/Posix/Signals.hsc | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'System/Posix') diff --git a/System/Posix/Signals.hsc b/System/Posix/Signals.hsc index e56a425..4257688 100644 --- a/System/Posix/Signals.hsc +++ b/System/Posix/Signals.hsc @@ -1,4 +1,4 @@ -{-# LANGUAGE DeriveDataTypeable,PatternGuards #-} +{-# LANGUAGE DeriveDataTypeable, PatternGuards, CApiFFI #-} {-# OPTIONS_GHC -fno-cse #-} -- global variables #if __GLASGOW_HASKELL__ >= 701 {-# LANGUAGE Trustworthy #-} @@ -612,13 +612,13 @@ foreign import ccall unsafe "sigfillset" foreign import ccall unsafe "sigismember" c_sigismember :: Ptr CSigset -> CInt -> IO CInt #else -foreign import ccall unsafe "__hscore_sigdelset" +foreign import capi unsafe "HsBase.h sigdelset" c_sigdelset :: Ptr CSigset -> CInt -> IO CInt -foreign import ccall unsafe "__hscore_sigfillset" +foreign import capi unsafe "HsBase.h sigfillset" c_sigfillset :: Ptr CSigset -> IO CInt -foreign import ccall unsafe "__hscore_sigismember" +foreign import capi unsafe "HsBase.h sigismember" c_sigismember :: Ptr CSigset -> CInt -> IO CInt #endif /* __HUGS__ */ -- cgit v1.2.3