@@ -765,9 +765,9 @@ split c = splitWith (==c)
765765-- separators result in an empty component in the output. eg.
766766--
767767-- > splitWith (=='a') "aabbaca" == ["","","bb","c",""]
768−-- > splitWith (=='a') [] == []
768+-- > splitWith (=='a') [] == [""]
769769splitWith :: (Char -> Bool) -> Text -> [Text]
770−splitWith _ Empty = []
770+splitWith _ Empty = [Empty]
771771splitWith p (Chunk t0 ts0) = comb [] (T.splitWith p t0) ts0
772772 where comb acc (s:[]) Empty = revChunks (s:acc) : []
773773 comb acc (s:[]) (Chunk t ts) = comb (s:acc) (T.splitWith p t) ts