@@ -43,9 +43,9 @@ unsafeTail t@(Text arr off len) =
43 where d = iter_ t 0
43 where d = iter_ t 0
44{-# INLINE unsafeTail #-}
44{-# INLINE unsafeTail #-}
46−-- | /O(1)/ Iterate one step through a UTF-16 array, returning the
46+-- | /O(1)/ Iterate one step forwards through a UTF-16 array,
47−-- current character and the delta to add to give the next offset to
47+-- returning the current character and the delta to add to give the
48−-- iterate at.
48+-- next offset to iterate at.
49iter :: Text -> Int -> (Char,Int)
49iter :: Text -> Int -> (Char,Int)
50iter (Text arr off len) i
50iter (Text arr off len) i
51 | m < 0xD800 || m > 0xDBFF = (unsafeChr m, 1)
51 | m < 0xD800 || m > 0xDBFF = (unsafeChr m, 1)