Fix a duplicated splitWith bug.

--HG-- extra : convert_revision : a136358e3a0c307689b2851ec2e0824cb23abf1b
haskell · Aug 14, 2009 · 4b9cec0 · 4b9cec0
1 parent 1e385a4
commit 4b9cec0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Data/Text/Lazy.hs b/Data/Text/Lazy.hs
@@ -765,9 +765,9 @@ split c = splitWith (==c)
 -- separators result in an empty component in the output.  eg.
 --
 -- > splitWith (=='a') "aabbaca" == ["","","bb","c",""]
--- > splitWith (=='a') []        == []
+-- > splitWith (=='a') []        == [""]
 splitWith :: (Char -> Bool) -> Text -> [Text]
-splitWith _ Empty = []
+splitWith _ Empty = [Empty]
 splitWith p (Chunk t0 ts0) = comb [] (T.splitWith p t0) ts0
   where comb acc (s:[]) Empty        = revChunks (s:acc) : []
         comb acc (s:[]) (Chunk t ts) = comb (s:acc) (T.splitWith p t) ts