Fix a bug in the splitWith test. Eek!
--HG--
extra : convert_revision : 9e818553d4be58a233cd4c7f8684ea4aa1eefed0
commitc0479ba9089d9e2520de65c3f3abc9c4d3bbcf08
authorBryan O'Sullivan <bos@serpentine.com>
dateFri 14 Aug 2009, 05:19 (17 years ago)
parentbd24b5c
tests/Properties.hs+1−1
@@ -309,7 +309,7 @@ prop_T_splitWith_split c = T.splitWith (==c) `eq` T.split (T.singleton c)
309309prop_TL_splitWith p = splitWith p `eqP` (map unpackS . TL.splitWith p)
310310
311311splitWith :: (a -> Bool) -> [a] -> [[a]]
312−splitWith _ [] = []
312+splitWith _ [] = [[]]
313313splitWith p xs = loop xs
314314 where loop s | null s' = [l]
315315 | otherwise = l : loop (tail s')