Use `open(2)` directly rather than via `__hscore_open()`
authorHerbert Valerio Riedel <hvr@gnu.org>
Sun, 31 Jan 2016 10:32:01 +0000 (11:32 +0100)
committerHerbert Valerio Riedel <hvr@gnu.org>
Sun, 31 Jan 2016 10:32:01 +0000 (11:32 +0100)
As we don't support Windows, there's no benefit in going via
`__hscore_open()`

System/Posix/IO/Common.hsc

index 8f8ddb9..a838352 100644 (file)
@@ -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