This commit is contained in:
Joey Hess 2012-01-20 15:06:17 -04:00
parent 61dbad505d
commit 25f998679c

View file

@ -25,7 +25,7 @@ readFileStrict = readFile >=> \s -> length s `seq` return s
- in the second result list. - in the second result list.
- -
- separate (== ':') "foo:bar" = ("foo", "bar") - separate (== ':') "foo:bar" = ("foo", "bar")
- separate (== ':') "foobar" = ("foo, "") - separate (== ':') "foobar" = ("foobar", "")
-} -}
separate :: (a -> Bool) -> [a] -> ([a], [a]) separate :: (a -> Bool) -> [a] -> ([a], [a])
separate c l = unbreak $ break c l separate c l = unbreak $ break c l