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