[project @ 2005-01-28 13:36:25 by simonmar]

[ghc-base.git] / System / Directory / Internals.hs

diff --git a/System/Directory/Internals.hs b/System/Directory/Internals.hs
index 7c7f8a5..761b771 100644 (file)
--- a/System/Directory/Internals.hs
+++ b/System/Directory/Internals.hs
@@ -91,7 +91,7 @@ pathParents :: FilePath -> [FilePath]
 pathParents p =
     root'' : map ((++) root') (dropEmptyPath $ inits path')
     where
-#ifdef mingw32_TARGET_OS
+#ifdef mingw32_HOST_OS
        (root,path) = case break (== ':') p of
           (path,    "") -> ("",path)
           (root,_:path) -> (root++":",path)
@@ -150,7 +150,7 @@ isPathSeparator ch = ch == pathSeparator || ch == '/'
 -- separator is a slash (@\"\/\"@) on Unix and Macintosh, and a backslash
 -- (@\"\\\"@) on the Windows operating system.
 pathSeparator :: Char
-#ifdef mingw32_TARGET_OS
+#ifdef mingw32_HOST_OS
 pathSeparator = '\\'
 #else
 pathSeparator = '/'
@@ -161,7 +161,7 @@ pathSeparator = '/'
 -- environment variables. The separator is a colon (@\":\"@) on Unix and
 -- Macintosh, and a semicolon (@\";\"@) on the Windows operating system.
 searchPathSeparator :: Char
-#ifdef mingw32_TARGET_OS
+#ifdef mingw32_HOST_OS
 searchPathSeparator = ';'
 #else
 searchPathSeparator = ':'
@@ -171,7 +171,7 @@ searchPathSeparator = ':'
 -- | Extension for executable files
 -- (typically @\"\"@ on Unix and @\"exe\"@ on Windows or OS\/2)
 exeExtension :: String
-#ifdef mingw32_TARGET_OS
+#ifdef mingw32_HOST_OS
 exeExtension = "exe"
 #else
 exeExtension = ""