X-Git-Url: http://git.megacz.com/?p=haskell-directory.git;a=blobdiff_plain;f=System%2FDirectory.hs;h=d264583f66f953c74f56500eaecab5816e97166f;hp=e179c93c6b0fa9d579d464d3dcee3d9db85243de;hb=c60c8ca62a5f7f1c66dce5864caeb1d79b6158a6;hpb=3602419d95b3b8d807a5c7cb6d151ecc9166be86

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