diff options
author | Ian Lynagh <igloo@earth.li> | 2011-11-28 18:20:04 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2011-11-28 18:20:04 +0000 |
commit | a55cb0304bf9ba3d20146d25b1fed4116819f4b3 (patch) | |
tree | b179e22ef6edafc5a0394b47f9d0010d8275c67b /System/Posix/IO/Common.hsc | |
parent | e33f5019b8739fee8b5af319698945250ad532ec (diff) |
Use capi some more (part of #5480)
Diffstat (limited to 'System/Posix/IO/Common.hsc')
-rw-r--r-- | System/Posix/IO/Common.hsc | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/System/Posix/IO/Common.hsc b/System/Posix/IO/Common.hsc index e4a7671..c937b3e 100644 --- a/System/Posix/IO/Common.hsc +++ b/System/Posix/IO/Common.hsc @@ -206,7 +206,7 @@ foreign import ccall unsafe "__hscore_open" closeFd :: Fd -> IO () closeFd (Fd fd) = throwErrnoIfMinus1_ "closeFd" (c_close fd) -foreign import ccall unsafe "HsBase.h close" +foreign import ccall unsafe "HsUnix.h close" c_close :: CInt -> IO CInt -- ----------------------------------------------------------------------------- @@ -318,10 +318,10 @@ setFdOption (Fd fd) opt val = do _ -> ((#const F_GETFL),(#const F_SETFL)) opt_val = fdOption2Int opt -foreign import ccall unsafe "HsBase.h fcntl_read" +foreign import ccall unsafe "HsUnix.h fcntl_read" c_fcntl_read :: CInt -> CInt -> IO CInt -foreign import ccall unsafe "HsBase.h fcntl_write" +foreign import ccall unsafe "HsUnix.h fcntl_write" c_fcntl_write :: CInt -> CInt -> CLong -> IO CInt -- ----------------------------------------------------------------------------- @@ -359,7 +359,7 @@ getLock (Fd fd) lock = type CFLock = () -foreign import ccall unsafe "HsBase.h fcntl_lock" +foreign import ccall unsafe "HsUnix.h fcntl_lock" c_fcntl_lock :: CInt -> CInt -> Ptr CFLock -> IO CInt allocaLock :: FileLock -> (Ptr CFLock -> IO a) -> IO a |