From 60a7a748da3d168969ac8da224537dfdc4959ea4 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sun, 23 Jan 2005 11:30:39 +0000
Subject: [PATCH] [project @ 2005-01-23 11:30:39 by panne] * Nuked one #ifdef
 in isPathSeparator, the generated code is the same * Added
 a ToDo for searchPathSeparator

---
 System/FilePath.hs |    7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/System/FilePath.hs b/System/FilePath.hs
index 1ddb24b..5b092d2 100644
--- a/System/FilePath.hs
+++ b/System/FilePath.hs
@@ -375,11 +375,7 @@ mkSearchPath paths = concat (intersperse [searchPathSeparator] paths)
 -- operating system also accepts a slash (\"\/\") since DOS 2, the function
 -- checks for it on this platform, too.
 isPathSeparator :: Char -> Bool
-#ifdef mingw32_TARGET_OS
-isPathSeparator ch = ch == '/' || ch == '\\'
-#else
-isPathSeparator ch = ch == '/'
-#endif
+isPathSeparator ch = ch == pathSeparator || ch == '/'
 
 -- | Provides a platform-specific character used to separate directory levels in
 -- a path string that reflects a hierarchical file system organization. The
@@ -392,6 +388,7 @@ pathSeparator = '\\'
 pathSeparator = '/'
 #endif
 
+-- ToDo: This should be determined via autoconf (PATH_SEPARATOR)
 -- | A platform-specific character used to separate search path strings in
 -- environment variables. The separator is a colon (@\":\"@) on Unix and
 -- Macintosh, and a semicolon (@\";\"@) on the Windows operating system.
-- 
1.7.10.4