@@ -30,6 +30,9 @@ charWidth c = do
3030-- run-length encoded ranges. This function assumes the pairs come
3131-- sorted by character ordinal value. It does not require that the
3232-- character range is fully covered by the sequence.
33+--
34+-- The result of this function is a list of ranges in reverse order
35+-- relative to the input sequence.
3336mkRanges :: [(Char, Int)] -> [WidthTableRange]
3437mkRanges pairs =
3538 let convertedPairs = convert <$> pairs