Check empty chunk invariant properly
--HG--
extra : convert_revision : 843da50086ed0e80d7a7c2931eab27fb350fd000
commit94d4857763ac83fb171117aa5421d4867e7318d2
authorBryan O'Sullivan <bos@serpentine.com>
dateSun 15 Aug 2010, 20:02 (16 years ago)
parentd528e5d
Data/Text/Lazy.hs+1−1
@@ -277,7 +277,7 @@ toStrict t = T.concat (toChunks t)
277277{-# INLINE [1] toStrict #-}
278278
279279fromStrict :: T.Text -> Text
280−fromStrict t = Chunk t Empty
280+fromStrict t = chunk t Empty
281281{-# INLINE [1] fromStrict #-}
282282
283283cons :: Char -> Text -> Text