summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers/Muse.hs
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2017-11-22 16:01:57 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2017-11-22 16:17:30 +0300
commit454062eccdcc0047e6134bdd4d86c2debb0b3ce7 (patch)
treebd6dbd2857a81fd1db3027a04bc40ac5d19ab5bc /src/Text/Pandoc/Writers/Muse.hs
parentc8ab4789b63422d27b03379ceea413e3fcffd577 (diff)
Muse writer: escape hash symbol
Diffstat (limited to 'src/Text/Pandoc/Writers/Muse.hs')
-rw-r--r--src/Text/Pandoc/Writers/Muse.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index 8963c7ce4..a6ef28ba7 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -285,7 +285,7 @@ escapeString s =
-- | Escape special characters for Muse if needed.
conditionalEscapeString :: String -> String
conditionalEscapeString s =
- if any (`elem` ("*<=>[]|" :: String)) s ||
+ if any (`elem` ("#*<=>[]|" :: String)) s ||
"::" `isInfixOf` s ||
"----" `isInfixOf` s
then escapeString s