From 364604035c60fe5c21cda2e2f37027ebadc81ebd Mon Sep 17 00:00:00 2001 From: Herbert Valerio Riedel Date: Sun, 31 Jan 2016 00:09:09 +0100 Subject: Replace `__hscore_{set,get}rlimit` wrappers with CApiFFI --- System/Posix/Resource.hsc | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'System') diff --git a/System/Posix/Resource.hsc b/System/Posix/Resource.hsc index 3418ecf..309d394 100644 --- a/System/Posix/Resource.hsc +++ b/System/Posix/Resource.hsc @@ -1,3 +1,4 @@ +{-# LANGUAGE CApiFFI #-} #if __GLASGOW_HASKELL__ >= 709 {-# LANGUAGE Safe #-} #else @@ -57,10 +58,10 @@ data ResourceLimit data {-# CTYPE "struct rlimit" #-} RLimit -foreign import ccall unsafe "HsUnix.h __hscore_getrlimit" +foreign import capi unsafe "HsUnix.h getrlimit" c_getrlimit :: CInt -> Ptr RLimit -> IO CInt -foreign import ccall unsafe "HsUnix.h __hscore_setrlimit" +foreign import capi unsafe "HsUnix.h setrlimit" c_setrlimit :: CInt -> Ptr RLimit -> IO CInt getResourceLimit :: Resource -> IO ResourceLimits -- cgit v1.2.3