From b7d8930dc097defcae754120a4fa0d6727c9b265 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Mon, 29 Jan 2018 12:54:43 +0300
Subject: Muse writer: escape nonbreaking space ("~~")

---
 src/Text/Pandoc/Writers/Muse.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Text/Pandoc/Writers')

diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index 164a46411..73d79a9a2 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -290,7 +290,8 @@ conditionalEscapeString :: String -> String
 conditionalEscapeString s =
   if any (`elem` ("#*<=>[]|" :: String)) s ||
      "::" `isInfixOf` s ||
-     "----" `isInfixOf` s
+     "----" `isInfixOf` s ||
+     "~~" `isInfixOf` s
     then escapeString s
     else s
 
-- 
cgit v1.2.3