diff options
author | 2014-09-10 11:34:44 +0200 | |
---|---|---|
committer | 2014-09-10 11:34:44 +0200 | |
commit | b8e314a7f1304ebb4a80795b015f85e676b3e2bd (patch) | |
tree | 21e5cfa75ef92e34d685aa206b7e925da2383390 /System/Posix | |
parent | 8afe57ff808499584f43a5cfeb1a3bb42602df8b (diff) | |
parent | 3c28bc83695cb5351d24920dac655b944a8abfba (diff) |
Merge branch 'sol-fix-getgrgid_r-v3' of https://github.com/kgardas/unix into kgardas-sol-fix-getgrgid_r-v3
Conflicts:
changelog.md
Diffstat (limited to 'System/Posix')
-rw-r--r-- | System/Posix/User.hsc | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/System/Posix/User.hsc b/System/Posix/User.hsc index ff7268f..50c9f41 100644 --- a/System/Posix/User.hsc +++ b/System/Posix/User.hsc @@ -1,5 +1,5 @@ #ifdef __GLASGOW_HASKELL__ -{-# LANGUAGE Trustworthy #-} +{-# LANGUAGE Trustworthy, CApiFFI #-} #endif ----------------------------------------------------------------------------- -- | @@ -207,7 +207,7 @@ getGroupEntryForID gid = doubleAllocWhileERANGE "getGroupEntryForID" "group" grBufSize unpackGroupEntry $ c_getgrgid_r gid pgr -foreign import ccall unsafe "getgrgid_r" +foreign import capi unsafe "HsUnix.h getgrgid_r" c_getgrgid_r :: CGid -> Ptr CGroup -> CString -> CSize -> Ptr (Ptr CGroup) -> IO CInt #else @@ -226,7 +226,7 @@ getGroupEntryForName name = doubleAllocWhileERANGE "getGroupEntryForName" "group" grBufSize unpackGroupEntry $ c_getgrnam_r pstr pgr -foreign import ccall unsafe "getgrnam_r" +foreign import capi unsafe "HsUnix.h getgrnam_r" c_getgrnam_r :: CString -> Ptr CGroup -> CString -> CSize -> Ptr (Ptr CGroup) -> IO CInt #else |