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