@@ -309,7 +309,7 @@ prop_T_splitWith_split c = T.splitWith (==c) `eq` T.split (T.singleton c)
309prop_TL_splitWith p = splitWith p `eqP` (map unpackS . TL.splitWith p)
309prop_TL_splitWith p = splitWith p `eqP` (map unpackS . TL.splitWith p)
311splitWith :: (a -> Bool) -> [a] -> [[a]]
311splitWith :: (a -> Bool) -> [a] -> [[a]]
312−splitWith _ [] = []
312+splitWith _ [] = [[]]
313splitWith p xs = loop xs
313splitWith p xs = loop xs
314 where loop s | null s' = [l]
314 where loop s | null s' = [l]
315 | otherwise = l : loop (tail s')
315 | otherwise = l : loop (tail s')