Tidy up splitSearchPath, minor refactoring
authorNeil Mitchell <unknown>
Sun, 13 Jan 2008 21:24:34 +0000 (21:24 +0000)
committerNeil Mitchell <unknown>
Sun, 13 Jan 2008 21:24:34 +0000 (21:24 +0000)
System/FilePath/Internal.hs

index c67e53a..dfadde3 100644 (file)
@@ -166,10 +166,10 @@ splitSearchPath :: String -> [FilePath]
 splitSearchPath = f
     where
     f xs = case break isSearchPathSeparator xs of
-           ([],  [])   -> []
-           ([],  post) -> f (tail post)
-           (pre, [])   -> [pre]
-           (pre, post) -> pre : f (tail post)
+           ([],  []    )   -> []
+           ([],  _:post) -> f post
+           (pre, []    )   -> [pre]
+           (pre, _:post) -> pre : f post
 
 
 -- | Get a list of filepaths in the $PATH.