From: ross <unknown>
Date: Fri, 22 Jul 2005 08:15:06 +0000 (+0000)
Subject: [project @ 2005-07-22 08:15:06 by ross]
X-Git-Tag: cmm-merge2~46
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8353b621b0ad24a1b5272ca9035581aa74ef7147;p=haskell-directory.git

[project @ 2005-07-22 08:15:06 by ross]
unbreak for non-GHC
---

diff --git a/System/Directory.hs b/System/Directory.hs
index d5bbd84..a9d15f5 100644
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -250,6 +250,13 @@ createDirectory path = do
     withCString path $ \s -> do
       throwErrnoIfMinus1Retry_ "createDirectory" $
 	mkdir s 0o777
+
+#else /* !__GLASGOW_HASKELL__ */
+
+copyPermissions :: FilePath -> FilePath -> IO ()
+copyPermissions fromFPath toFPath
+  = getPermissions fromFPath >>= setPermissions toFPath
+
 #endif
 
 -- | @'createDirectoryIfMissing' parents dir@ creates a new directory