@@ -63,6 +63,8 @@ unicodeTableUpperBound = '\xe0000'
63-- generate a lot of output and may take a while, depending on your
63-- generate a lot of output and may take a while, depending on your
64-- system performance. This should not be run in a terminal while it is
64-- system performance. This should not be run in a terminal while it is
65-- controlled by Vty.
65-- controlled by Vty.
67+-- This does not handle exceptions.
66buildUnicodeWidthTable :: IO UnicodeWidthTable
68buildUnicodeWidthTable :: IO UnicodeWidthTable
67buildUnicodeWidthTable = do
69buildUnicodeWidthTable = do
68 pairs <- forM (filter shouldConsider ['\0'..unicodeTableUpperBound]) $ \i ->
70 pairs <- forM (filter shouldConsider ['\0'..unicodeTableUpperBound]) $ \i ->