From: Malcolm.Wallace@cs.york.ac.uk <unknown>
Date: Mon, 23 Nov 2009 06:37:43 +0000 (+0000)
Subject: Remove ffi warnings for nhc98.
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0ec5766c8d6d2a2352f1ace463edaf428c9eea5a;p=ghc-base.git

Remove ffi warnings for nhc98.
---

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"