From: Malcolm.Wallace@me.com <unknown>
Date: Thu, 2 Sep 2010 08:22:54 +0000 (+0000)
Subject: Make new permissions stuff build with nhc98.
X-Git-Tag: ghc-darcs-git-switchover~2
X-Git-Url: http://git.megacz.com/?p=haskell-directory.git;a=commitdiff_plain;h=c60c8ca62a5f7f1c66dce5864caeb1d79b6158a6

Make new permissions stuff build with nhc98.
---

diff --git a/System/Directory.hs b/System/Directory.hs
index e179c93..d264583 100644
--- 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