From 0ec5766c8d6d2a2352f1ace463edaf428c9eea5a Mon Sep 17 00:00:00 2001 From: "Malcolm.Wallace@cs.york.ac.uk" Date: Mon, 23 Nov 2009 06:37:43 +0000 Subject: [PATCH 1/1] Remove ffi warnings for nhc98. --- System/Posix/Internals.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/System/Posix/Internals.hs b/System/Posix/Internals.hs index 126f753..2ea9fb1 100644 --- a/System/Posix/Internals.hs +++ b/System/Posix/Internals.hs @@ -390,16 +390,16 @@ foreign import ccall unsafe "HsBase.h __hscore_lseek" foreign import ccall unsafe "HsBase.h __hscore_lstat" lstat :: CFilePath -> Ptr CStat -> IO CInt -foreign import ccall unsafe "__hscore_open" +foreign import ccall unsafe "HsBase.h __hscore_open" c_open :: CFilePath -> CInt -> CMode -> IO CInt foreign import ccall unsafe "HsBase.h read" c_read :: CInt -> Ptr Word8 -> CSize -> IO CSsize -foreign import ccall safe "read" +foreign import ccall safe "HsBase.h read" c_safe_read :: CInt -> Ptr Word8 -> CSize -> IO CSsize -foreign import ccall unsafe "__hscore_stat" +foreign import ccall unsafe "HsBase.h __hscore_stat" c_stat :: CFilePath -> Ptr CStat -> IO CInt foreign import ccall unsafe "HsBase.h umask" @@ -408,7 +408,7 @@ foreign import ccall unsafe "HsBase.h umask" foreign import ccall unsafe "HsBase.h write" c_write :: CInt -> Ptr Word8 -> CSize -> IO CSsize -foreign import ccall safe "write" +foreign import ccall safe "HsBase.h write" c_safe_write :: CInt -> Ptr Word8 -> CSize -> IO CSsize foreign import ccall unsafe "HsBase.h __hscore_ftruncate" -- 1.7.10.4