From c59e31722471ce3a67a41413de4e6a5ecfd00ba1 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 22 Mar 2017 15:37:08 +0100
Subject: [PATCH] Experimental change to charWidth in Pretty.

Hunch that this might help with #3526.
---
 src/Text/Pandoc/Pretty.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Text/Pandoc/Pretty.hs b/src/Text/Pandoc/Pretty.hs
index 32e60843c..73d698001 100644
--- a/src/Text/Pandoc/Pretty.hs
+++ b/src/Text/Pandoc/Pretty.hs
@@ -511,6 +511,7 @@ 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