7b94bbc · text · git.iko.soy

on master help sign in

Export 'foldrChunks' and 'foldlChunks'; add 'toStrict' and 'fromStrict' utility functions.

7b94bbcJohn Millikin16 years ago

Data/Text/Lazy.hs+12

@@ -39,6 +39,10 @@ module Data.Text.Lazy

39 , empty

40 , fromChunks

41 , toChunks

42+ , toStrict

43+ , fromStrict

44+ , foldrChunks

45+ , foldlChunks

43 -- * Basic interface

47 -- * Basic interface

44 , cons

48 , cons

@@ -268,6 +272,14 @@ fromChunks cs = L.foldr chunk Empty cs

268toChunks :: Text -> [T.Text]

272toChunks :: Text -> [T.Text]

269toChunks cs = foldrChunks (:) [] cs

273toChunks cs = foldrChunks (:) [] cs

270

274

275+toStrict :: Text -> T.Text

276+toStrict t = T.concat (toChunks t)

277+{-# INLINE [1] toStrict #-}

278+

279+fromStrict :: T.Text -> Text

280+fromStrict t = Chunk t Empty

281+{-# INLINE [1] fromStrict #-}

282+

271cons :: Char -> Text -> Text

283cons :: Char -> Text -> Text

272cons c t = Chunk (T.singleton c) t

284cons c t = Chunk (T.singleton c) t

273{-# INLINE [1] cons #-}

285{-# INLINE [1] cons #-}