@@ -31,14 +31,18 @@ mkRanges :: [(Char, Int)] -> [WidthTableRange]
3131mkRanges pairs =
3232 let convertedPairs = convert <$> pairs
3333 convert (c, i) = (fromIntegral $ fromEnum c, fromIntegral i)
34+
3435 go Nothing finishedRanges [] = finishedRanges
3536 go (Just r) finishedRanges [] = r:finishedRanges
37+
3638 go Nothing finishedRanges ((c, width):rest) =
3739 go (Just $ WidthTableRange c 1 width) finishedRanges rest
40+
3841 go (Just r@(WidthTableRange prevCh sz prevWidth)) finishedRanges ((c, width):rest) =
3942 if c == prevCh + sz && prevWidth == width
4043 then go (Just (WidthTableRange prevCh (sz + 1) prevWidth)) finishedRanges rest
4144 else go (Just (WidthTableRange c 1 width)) (r:finishedRanges) rest
45+
4246 in go Nothing [] convertedPairs
4347
4448-- | Construct a unicode character width table by querying the terminal