@@ -571,7 +571,9 @@ isSingleton = S.isSingleton . stream
571-- Subject to fusion.
571-- Subject to fusion.
572length :: Text -> Int
572length :: Text -> Int
573length t = S.length (stream t)
573length t = S.length (stream t)
574−{-# INLINE length #-}
574+{-# INLINE [0] length #-}
575+-- length needs to be phased after the compareN/length rules otherwise
576+-- it may inline before the rules have an opportunity to fire.
576-- | /O(n)/ Compare the count of characters in a 'Text' to a number.
578-- | /O(n)/ Compare the count of characters in a 'Text' to a number.
577-- Subject to fusion.
579-- Subject to fusion.