[project @ 2004-07-30 23:29:41 by ross]

copyFile is GHC-only at the moment

diff --git a/System/Directory.hs b/System/Directory.hs
index 2a1fa3c..7d92473 100644 (file)
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -28,7 +28,9 @@ module System.Directory
     -- * Actions on files
     , removeFile               -- :: FilePath -> IO ()
     , renameFile                -- :: FilePath -> FilePath -> IO ()
+#ifdef __GLASGOW_HASKELL__
     , copyFile                  -- :: FilePath -> FilePath -> IO ()
+#endif
 
     -- * Existence tests
     , doesFileExist            -- :: FilePath -> IO Bool