nhc98 now uses more of the code (shared with ghc) here.

[haskell-directory.git] / tests / getPermissions001.hs

diff --git a/tests/getPermissions001.hs b/tests/getPermissions001.hs
index 0c435df..5e9adf2 100644 (file)
--- a/tests/getPermissions001.hs
+++ b/tests/getPermissions001.hs
@@ -1,11 +1,11 @@
-import Directory
+import System.Directory
 
 main = do
   p <- getPermissions "."
   print p
   p <- getPermissions "getPermissions001.hs"
   print p
-#ifndef i386_unknown_mingw32
+#ifndef mingw32_HOST_OS
   p <- getPermissions "getPermissions001"
 #else
   p <- getPermissions "getPermissions001.exe"