From c60c8ca62a5f7f1c66dce5864caeb1d79b6158a6 Mon Sep 17 00:00:00 2001
From: "Malcolm.Wallace@me.com" <unknown>
Date: Thu, 2 Sep 2010 08:22:54 +0000
Subject: [PATCH] Make new permissions stuff build with nhc98.

---
 System/Directory.hs |    4 ++++
 1 file changed, 4 insertions(+)

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
-- 
1.7.10.4