[project @ 2005-01-28 14:55:05 by simonmar]

[ghc-base.git] / System / Environment.hs

diff --git a/System/Environment.hs b/System/Environment.hs
index de60de8..1235920 100644 (file)
--- a/System/Environment.hs
+++ b/System/Environment.hs
@@ -102,7 +102,7 @@ unpackProgName argv = do
 
    isPathSeparator :: Char -> Bool
    isPathSeparator '/'  = True
-#ifdef mingw32_TARGET_OS 
+#ifdef mingw32_HOST_OS 
    isPathSeparator '\\' = True
 #endif
    isPathSeparator _    = False