@@ -413,8 +413,8 @@ widthI (Stream next s0 _len) = loop_length 0 s0
413413 Yield c s' -> loop_length (z + charWidth c) s'
414414{-# INLINE[0] widthI #-}
415415
416−-- | Compute the width of a stream of characters, taking into account
417−-- fullwidth unicode forms.
416+-- | Compute the logical index position of a stream of characters from a visual
417+-- position taking into account fullwidth unicode forms.
418418charIndexAt :: Int -> Stream Char -> Int
419419charIndexAt pos (Stream next s0 _len) = loop_length 0 0 s0
420420 where