[web-devel] Network.Browser.splitMany - bug?

[Henning Thielemann]

I don't know whether this is a bug or a feature:

*Network.Browser> splitMany ',' "abc,def,ghj"
["abc",",def,gh"]


According to the name and the comment "Removes delimiters" I propose:

*Network.Browser> splitMany' ',' "abc,def,ghj"
["abc","def","ghj"]

with

splitMany' :: Eq a => a -> [a] -> [[a]]
splitMany' delim =
    uncurry (:) .
    foldr
       (\c ~(str,rest) ->
          if c==delim
            then ([], str:rest)
            else (c:str, rest))
       ([],[])