diff --git a/System/Posix/IO/Common.hsc b/System/Posix/IO/Common.hsc index 8f8ddb9abab1bf299204f4bb88899baf0509f163..a838352758706af874fa348a62a06f2f834c9d57 100644 --- a/System/Posix/IO/Common.hsc +++ b/System/Posix/IO/Common.hsc @@ -1,4 +1,6 @@ -{-# LANGUAGE NondecreasingIndentation, RecordWildCards #-} +{-# LANGUAGE CApiFFI #-} +{-# LANGUAGE NondecreasingIndentation #-} +{-# LANGUAGE RecordWildCards #-} #if __GLASGOW_HASKELL__ >= 709 {-# LANGUAGE Safe #-} #else @@ -182,7 +184,7 @@ open_ str how maybe_mode (OpenFileFlags appendFlag exclusiveFlag nocttyFlag WriteOnly -> (#const O_WRONLY) ReadWrite -> (#const O_RDWR) -foreign import ccall unsafe "__hscore_open" +foreign import capi unsafe "HsUnix.h open" c_open :: CString -> CInt -> CMode -> IO CInt -- |Close this file descriptor. May throw an exception if this is an