Merge pull request #420 from angerman/patch-1

Use CApiFFI for variadic fcntl
haskell-foundation · Nov 4, 2017 · 52bfdf9 · 52bfdf9
2 parents 8e651e5 + deb7bfb
commit 52bfdf9
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/Foundation/System/Bindings/Posix.hsc b/Foundation/System/Bindings/Posix.hsc
@@ -11,6 +11,7 @@
 -- Functions defined by the POSIX standards
 --
 -----------------------------------------------------------------------------
+{-# LANGUAGE CApiFFI #-}
 {-# OPTIONS_HADDOCK hide #-}
 module Foundation.System.Bindings.Posix
    where
@@ -348,9 +349,9 @@ foreign import ccall unsafe "openat"
 foreign import ccall unsafe "close"
     sysPosixClose :: CFd -> IO CInt
 
-foreign import ccall unsafe "fcntl"
+foreign import capi "fcntl.h fcntl"
     sysPosixFnctlNoArg :: CFd -> CInt -> IO CInt
-foreign import ccall unsafe "fcntl"
+foreign import capi "fcntl.h fcntl"
     sysPosixFnctlPtr :: CFd -> CInt -> Ptr a -> IO CInt
 
 foreign import ccall unsafe "ftruncate"