@@ -417,9 +417,9 @@ ctrlChars = foldr insertRange empty [
419wcwidth :: Char -> Int
419wcwidth :: Char -> Int
420−wcwidth c = if queryPoint v basicZero then 0
420+wcwidth c | queryPoint v basicZero = 0
421− else if queryPoint v ctrlChars then -1
421+ | queryPoint v ctrlChars = -1
422− else if queryPoint v wIDEEASTASIAN then 2
422+ | queryPoint v wIDEEASTASIAN = 2
423− else if queryPoint v zEROWIDTH then 0
423+ | queryPoint v zEROWIDTH = 0
424− else 1
424+ | otherwise = 1
425 where v = ord c
425 where v = ord c