Make new permissions stuff build with nhc98.

diff --git a/System/Directory.hs b/System/Directory.hs
index e179c93..d264583 100644 (file)
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -120,6 +120,8 @@ import qualified System.Win32 as Win32
 import qualified System.Posix as Posix
 #endif
 
+#endif /* __GLASGOW_HASKELL__ */
+
 {- $intro
 A directory contains a series of entries, each of which is a named
 reference to a file system object (file, directory etc.).  Some
@@ -196,6 +198,8 @@ The operation may fail with:
 
 -}
 
+#ifdef __GLASGOW_HASKELL__
+
 getPermissions :: FilePath -> IO Permissions
 getPermissions name = do
 #ifdef mingw32_HOST_OS