X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FPosix%2FInternals.hs;h=989a08283e37f455b7acc5b8eeaa691dcf08c5af;hb=b11688bf41f91552292f069375f5e970ec0bab2b;hp=4a91d584d8ab4d0d60e298830ce06106e438ad27;hpb=1de80964b5604669a07fa710f5cf67093d1f8c75;p=ghc-base.git

diff --git a/System/Posix/Internals.hs b/System/Posix/Internals.hs
index 4a91d58..989a082 100644
--- a/System/Posix/Internals.hs
+++ b/System/Posix/Internals.hs
@@ -341,7 +341,7 @@ foreign import ccall unsafe "HsBase.h dup"
 foreign import ccall unsafe "HsBase.h dup2"
    c_dup2 :: CInt -> CInt -> IO CInt
 
-foreign import ccall unsafe "HsBase.h fstat"
+foreign import ccall unsafe "HsBase.h __hscore_fstat"
    c_fstat :: CInt -> Ptr CStat -> IO CInt
 
 foreign import ccall unsafe "HsBase.h getcwd"