From: Ian Lynagh <igloo@earth.li>
Date: Fri, 9 Jan 2009 18:25:54 +0000 (+0000)
Subject: Fix getPermissions001 on Windows
X-Git-Url: http://git.megacz.com/?p=haskell-directory.git;a=commitdiff_plain;h=7996fe6af661fcd13e76adf1860e5552c8e05412

Fix getPermissions001 on Windows
---

diff --git a/tests/getPermissions001.hs b/tests/getPermissions001.hs
index f1fbeaa..5e9adf2 100644
--- 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"