@@ -11,8 +11,9 @@ data WidthTableRange =
1111 WidthTableRange { rangeStart :: Word32
1212 -- ^ The range's starting code point.
1313 , rangeSize :: Word32
14− -- ^ The number of code points in the range,
15− -- including the starting code point.
14+ -- ^ The number of code points in the contiguous
15+ -- range, beginning with the starting code point
16+ -- ('rangeStart').
1617 , rangeColumns :: Word8
1718 -- ^ The terminal width, in columns, of all of the
1819 -- characters corresponding to the code points in
@@ -20,7 +21,7 @@ data WidthTableRange =
2021 }
2122 deriving (Eq, Show)
2223
23−-- | A table of Unicode character widths.
24+-- | A run-length-encoded table of Unicode character widths.
2425data UnicodeWidthTable =
2526 UnicodeWidthTable { unicodeWidthTableRanges :: [WidthTableRange]
2627 -- ^ The ranges in the table.