Optimise isPathSeparator
authorNeil Mitchell <ndmitchell@gmail.com>
Mon, 10 Nov 2014 11:15:23 +0000 (11:15 +0000)
committerNeil Mitchell <ndmitchell@gmail.com>
Mon, 10 Nov 2014 11:15:23 +0000 (11:15 +0000)
System/FilePath/Internal.hs

index 07eafb2..0e40fc6 100644 (file)
@@ -151,7 +151,9 @@ pathSeparators = if isWindows then "\\/" else "/"
 --
 -- > isPathSeparator a == (a `elem` pathSeparators)
 isPathSeparator :: Char -> Bool
-isPathSeparator = (`elem` pathSeparators)
+isPathSeparator '/' = True
+isPathSeparator '\\' = isWindows
+isPathSeparator _ = False
 
 
 -- | The character that is used to separate the entries in the $PATH environment variable.