Revert "Experimental change to charWidth in Pretty."

This reverts commit c59e317224.
This commit is contained in:
John MacFarlane
2017-03-22 16:08:09 +01:00
parent c59e317224
commit 9437ab449c
-1
View File
@@ -511,7 +511,6 @@ doubleQuotes = inside (char '"') (char '"')
-- | Returns width of a character in a monospace font: 0 for a combining
-- character, 1 for a regular character, 2 for an East Asian wide character.
charWidth :: Char -> Int
charWidth '\r' = 0
charWidth c =
case c of
_ | c < '\x0300' -> 1