[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / lib / haskell-1.3 / LibPosix.lhs

diff --git a/ghc/lib/haskell-1.3/LibPosix.lhs b/ghc/lib/haskell-1.3/LibPosix.lhs
index e97215e..46b66a6 100644 (file)
--- a/ghc/lib/haskell-1.3/LibPosix.lhs
+++ b/ghc/lib/haskell-1.3/LibPosix.lhs
@@ -27,9 +27,12 @@ module LibPosix  (
     ProcessGroupID(..),
     UserID(..),
     
-    ExitCode
-    )  where
+    ExitCode,
+
+    -- make interface complete:
+    setCurrentDirectory{-pragmas-}, getCurrentDirectory{-pragmas-}
 
+    )  where
 
 import LibPosixDB
 import LibPosixErr
@@ -43,7 +46,7 @@ import LibPosixUtil
 -- runProcess is our candidate for the high-level OS-independent primitive 
 -- If accepted, it will be moved out of LibPosix into LibSystem.
 
-import LibDirectory    ( setCurrentDirectory )
+import LibDirectory    ( setCurrentDirectory, getCurrentDirectory{-pragmas-} )
 
 import PreludeGlaST
 import PreludePrimIO   ( takeMVar, putMVar, _MVar )