[project @ 1998-12-02 13:17:09 by simonm]

[ghc-hetmet.git] / ghc / interpreter / library / Directory.hs

diff --git a/ghc/interpreter/library/Directory.hs b/ghc/interpreter/library/Directory.hs
new file mode 100644 (file)
index 0000000..548c54b
--- /dev/null
+++ b/ghc/interpreter/library/Directory.hs
@@ -0,0 +1,17 @@
+module Directory ( 
+    createDirectory, removeDirectory, removeFile, 
+    renameDirectory, renameFile, getDirectoryContents,
+    getCurrentDirectory, setCurrentDirectory ) where
+
+createDirectory        :: FilePath -> IO ()
+removeDirectory        :: FilePath -> IO ()
+removeFile             :: FilePath -> IO ()
+renameDirectory        :: FilePath -> FilePath -> IO ()
+renameFile             :: FilePath -> FilePath -> IO ()
+getDirectoryContents   :: FilePath -> IO [FilePath]
+getCurrentDirectory    :: IO FilePath
+setCurrentDirectory    :: FilePath -> IO ()
+
+
+
+