From: simonmar <unknown>
Date: Fri, 12 Sep 2003 13:05:20 +0000 (+0000)
Subject: [project @ 2003-09-12 13:05:19 by simonmar]
X-Git-Tag: nhc98-1-18-release~509
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7775bba8742f15e1756e7311f03636916b979e88;p=haskell-directory.git

[project @ 2003-09-12 13:05:19 by simonmar]
Implement pathconf()/fpathconf() wrappers.
---

diff --git a/System/Posix/Internals.hs b/System/Posix/Internals.hs
index 931aec2..3cdb618 100644
--- a/System/Posix/Internals.hs
+++ b/System/Posix/Internals.hs
@@ -391,18 +391,12 @@ foreign import ccall unsafe "HsBase.h fork"
 foreign import ccall unsafe "HsBase.h getpid"
    c_getpid :: IO CPid
 
-foreign import ccall unsafe "HsBase.h fpathconf"
-   c_fpathconf :: CInt -> CInt -> IO CLong
-
 foreign import ccall unsafe "HsBase.h link"
    c_link :: CString -> CString -> IO CInt
 
 foreign import ccall unsafe "HsBase.h mkfifo"
    c_mkfifo :: CString -> CMode -> IO CInt
 
-foreign import ccall unsafe "HsBase.h pathconf"
-   c_pathconf :: CString -> CInt -> IO CLong
-
 foreign import ccall unsafe "HsBase.h pipe"
    c_pipe :: Ptr CInt -> IO CInt
 
diff --git a/System/Posix/Types.hs b/System/Posix/Types.hs
index 7a9d6da..cc04f32 100644
--- a/System/Posix/Types.hs
+++ b/System/Posix/Types.hs
@@ -42,7 +42,8 @@ module System.Posix.Types (
   ProcessGroupID,
   DeviceID,
   FileID,
-  FileMode
+  FileMode,
+  Limit
  ) where
 
 import Foreign
@@ -109,3 +110,5 @@ type FileMode       = CMode
 type ProcessID      = CPid
 type FileOffset     = COff
 type ProcessGroupID = CPid
+type Limit	    = CLong
+