@@ -305,15 +305,8 @@ null t = S.null (stream t)
305305-- | /O(n)/ Returns the number of characters in a 'Text'.
306306-- Subject to array fusion.
307307length :: Text -> Int
308−length (Text _arr _off len) = len
309−{-# INLINE [1] length #-}
310−
311−{-# RULES
312−"TEXT length -> fused" [~1] forall t.
313− length t = S.length (stream t)
314−"TEXT length -> unfused" [1] forall t.
315− S.length (stream t) = length t
316− #-}
308+length length t = S.length (stream t)
309+{-# INLINE length #-}
317310
318311-- -----------------------------------------------------------------------------
319312-- * Transformations