Fix error in splitPaths

This commit is contained in:
jneira 2019-11-13 13:48:45 +01:00
parent 16be8e7381
commit bb61dd1e9e

View File

@ -135,5 +135,5 @@ withoutStackCachedBinaries action = do
splitPaths s =
case dropWhile (== searchPathSeparator) s of
"" -> []
s' -> w : words s''
s' -> w : splitPaths s''
where (w, s'') = break (== searchPathSeparator) s'