@@ -363,6 +363,7 @@ instance IsString Text where
363 fromString = pack
363 fromString = pack
365#if __GLASGOW_HASKELL__ >= 708
365#if __GLASGOW_HASKELL__ >= 708
366instance Exts.IsList Text where
367instance Exts.IsList Text where
367 type Item Text = Char
368 type Item Text = Char
368 fromList = pack
369 fromList = pack
@@ -984,6 +985,8 @@ mapAccumR f = go
985-- | @'repeat' x@ is an infinite 'Text', with @x@ the value of every
986-- | @'repeat' x@ is an infinite 'Text', with @x@ the value of every
986-- element.
987-- element.
987repeat :: Char -> Text
990repeat :: Char -> Text
988repeat c = let t = Chunk (T.replicate smallChunkSize (T.singleton c)) t
991repeat c = let t = Chunk (T.replicate smallChunkSize (T.singleton c)) t
@@ -1001,6 +1004,8 @@ replicate n t
1002-- | 'cycle' ties a finite, non-empty 'Text' into a circular one, or
1005-- | 'cycle' ties a finite, non-empty 'Text' into a circular one, or
1003-- equivalently, the infinite repetition of the original 'Text'.
1006-- equivalently, the infinite repetition of the original 'Text'.
1004cycle :: Text -> Text
1009cycle :: Text -> Text
1005cycle Empty = emptyError "cycle"
1010cycle Empty = emptyError "cycle"
1006cycle t = let t' = foldrChunks Chunk t' t
1011cycle t = let t' = foldrChunks Chunk t' t
@@ -1010,6 +1015,8 @@ cycle t = let t' = foldrChunks Chunk t' t
1010-- of @f@ to @x@:
1015-- of @f@ to @x@:
1012-- > iterate f x == [x, f x, f (f x), ...]
1017-- > iterate f x == [x, f x, f (f x), ...]
1013iterate :: (Char -> Char) -> Char -> Text
1020iterate :: (Char -> Char) -> Char -> Text
1014iterate f c = let t c' = Chunk (T.singleton c') (t (f c'))
1021iterate f c = let t c' = Chunk (T.singleton c') (t (f c'))