@@ -222,10 +222,11 @@ snoc t c = foldrChunks Chunk (singleton c) t
222222 unstream (S.snoc (stream t) c) = snoc t c
223223 #-}
224224
225−-- | /O(n\/c)/ Append two 'Text's
225+-- | /O(n\/c)/ Appends one 'Text' to another. Subject to array
226+-- fusion.
226227append :: Text -> Text -> Text
227228append xs ys = foldrChunks Chunk ys xs
228−{-# INLINE append #-}
229+{-# INLINE [1] append #-}
229230
230231{-# RULES
231232"LAZY TEXT append -> fused" [~1] forall t1 t2.