e259542 · text · git.iko.soy

on master help sign in

Merge

e259542Bryan O'Sullivan16 years ago

Data/Text.hs+2

@@ -388,6 +388,8 @@ cons :: Char -> Text -> Text

388cons c t = unstream (S.cons (safe c) (stream t))

389{-# INLINE cons #-}

390

391+infixr 5 cons

392+

391-- | /O(n)/ Adds a character to the end of a 'Text'. This copies the

393-- | /O(n)/ Adds a character to the end of a 'Text'. This copies the

392-- entire array in the process, unless fused. Subject to fusion.

394-- entire array in the process, unless fused. Subject to fusion.

393-- Performs replacement on invalid scalar values.

395-- Performs replacement on invalid scalar values.

Data/Text/Lazy.hs+2

@@ -392,6 +392,8 @@ cons :: Char -> Text -> Text

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

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

394

395+infixr 5 cons

396+

395{-# RULES

397{-# RULES

396"LAZY TEXT cons -> fused" [~1] forall c t.

398"LAZY TEXT cons -> fused" [~1] forall c t.

397 cons c t = unstream (S.cons c (stream t))

399 cons c t = unstream (S.cons c (stream t))