Commits

Bryan O'Sullivan committed 814cda5

Fix definition of length: forgot surrogate pairs

  • Participants
  • Parent commits 0e79e48

Comments (0)

Files changed (1)

 -- | /O(n)/ Returns the number of characters in a 'Text'.
 -- Subject to array fusion.
 length :: Text -> Int
-length (Text _arr _off len) = len
-{-# INLINE [1] length #-}
-
-{-# RULES
-"TEXT length -> fused" [~1] forall t.
-    length t = S.length (stream t)
-"TEXT length -> unfused" [1] forall t.
-    S.length (stream t) = length t
- #-}
+length length t = S.length (stream t)
+{-# INLINE length #-}
 
 -- -----------------------------------------------------------------------------
 -- * Transformations