From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 21 Aug 2008 14:23:39 +0000 (+0000)
Subject: remove some functions that aren't used in base
X-Git-Tag: 6_10_branch_has_been_forked~37
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=2baa07fe445b54aaf5669b9c245e46cc3bf7399b;p=ghc-base.git

remove some functions that aren't used in base
---

diff --git a/System/Posix/Internals.hs b/System/Posix/Internals.hs
index 5828d72..5b9eb95 100644
--- a/System/Posix/Internals.hs
+++ b/System/Posix/Internals.hs
@@ -319,9 +319,6 @@ foreign import ccall unsafe "HsBase.h access"
 foreign import ccall unsafe "HsBase.h chmod"
    c_chmod :: CString -> CMode -> IO CInt
 
-foreign import ccall unsafe "HsBase.h chdir"
-   c_chdir :: CString -> IO CInt
-
 foreign import ccall unsafe "HsBase.h close"
    c_close :: CInt -> IO CInt
 
@@ -340,9 +337,6 @@ foreign import ccall unsafe "HsBase.h dup2"
 foreign import ccall unsafe "HsBase.h __hscore_fstat"
    c_fstat :: CInt -> Ptr CStat -> IO CInt
 
-foreign import ccall unsafe "HsBase.h getcwd"
-   c_getcwd   :: Ptr CChar -> CSize -> IO (Ptr CChar)
-
 foreign import ccall unsafe "HsBase.h isatty"
    c_isatty :: CInt -> IO CInt
 
@@ -372,9 +366,6 @@ foreign import ccall unsafe "HsBase.h read"
 foreign import ccall unsafe "HsBase.h rewinddir"
    c_rewinddir :: Ptr CDir -> IO ()
 
-foreign import ccall unsafe "HsBase.h rmdir"
-   c_rmdir :: CString -> IO CInt
-
 foreign import ccall unsafe "HsBase.h __hscore_stat"
    c_stat :: CString -> Ptr CStat -> IO CInt