@@ -380,13 +380,6 @@ uncons t@(Text arr off len)
380380second :: (b -> c) -> (a,b) -> (a,c)
381381second f (a, b) = (a, f b)
382382
383−{-# RULES
384−"TEXT uncons -> fused" [~1] forall t.
385− uncons t = fmap (second unstream) (S.uncons (stream t))
386−"TEXT uncons -> unfused" [1] forall t.
387− fmap (second unstream) (S.uncons (stream t)) = uncons t
388− #-}
389−
390383-- | /O(1)/ Returns the last character of a 'Text', which must be
391384-- non-empty. Subject to fusion.
392385last :: Text -> Char