Commits

Bryan O'Sullivan  committed fba844e

Twiddle append

  • Participants
  • Parent commits 0cf9e87

Comments (0)

Files changed (1)

File Data/Text/Lazy.hs

     unstream (S.snoc (stream t) c) = snoc t c
  #-}
 
--- | /O(n\/c)/ Append two 'Text's
+-- | /O(n\/c)/ Appends one 'Text' to another.  Subject to array
+-- fusion.
 append :: Text -> Text -> Text
 append xs ys = foldrChunks Chunk ys xs
-{-# INLINE append #-}
+{-# INLINE [1] append #-}
 
 {-# RULES
 "LAZY TEXT append -> fused" [~1] forall t1 t2.