Fix getPermissions001 on Windows

diff --git a/tests/getPermissions001.hs b/tests/getPermissions001.hs
index f1fbeaa..5e9adf2 100644 (file)
--- a/tests/getPermissions001.hs
+++ b/tests/getPermissions001.hs
@@ -5,7 +5,7 @@ main = do
   print p
   p <- getPermissions "getPermissions001.hs"
   print p
-#ifndef i386_unknown_mingw32
+#ifndef mingw32_HOST_OS
   p <- getPermissions "getPermissions001"
 #else
   p <- getPermissions "getPermissions001.exe"