aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-03-22 16:08:09 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2017-03-22 16:08:09 +0100
commit9437ab449c8f8bf50f4c8a7f08156d2c1aea604a (patch)
tree0193504f2b3e30741547c71357d457ce525f64f9 /src/Text
parentc59e31722471ce3a67a41413de4e6a5ecfd00ba1 (diff)
downloadpandoc-9437ab449c8f8bf50f4c8a7f08156d2c1aea604a.tar.gz
Revert "Experimental change to charWidth in Pretty."
This reverts commit c59e31722471ce3a67a41413de4e6a5ecfd00ba1.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Pretty.hs1
1 files changed, 0 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Pretty.hs b/src/Text/Pandoc/Pretty.hs
index 73d698001..32e60843c 100644
--- a/src/Text/Pandoc/Pretty.hs
+++ b/src/Text/Pandoc/Pretty.hs
@@ -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