e259542 · text · git.iko.soy

git.iko.soy/text

Merge

commite259542bcd1324fd706fa0f14986c8c3e54136b2 authorBryan O'Sullivan <bos@serpentine.com> dateTue 1 Feb 2011, 08:39 (16 years ago) parent0acf272 5f5e477

2 files changed+4

compare with master

unifiedsplit

Data/Text.hs+2 Data/Text/Lazy.hs+2

Data/Text.hs+2

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

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

389389{-# INLINE cons #-}

390390

391+infixr 5 cons

392+

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

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

393395-- Performs replacement on invalid scalar values.

Data/Text/Lazy.hs+2

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

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

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

394394

395+infixr 5 cons

396+

395397{-# RULES

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

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