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