aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-03-07 15:19:36 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-03-07 15:19:36 +0300
commit1b1b6f02d59626fac591e4ed4a2286c6effca6d2 (patch)
tree5f83f9777b7fcb19a2db80c1dadfcc9c115bd522 /src/Text
parentb6182afcfe4c3381bc9286970500d4a5adfbd38d (diff)
downloadpandoc-1b1b6f02d59626fac591e4ed4a2286c6effca6d2.tar.gz
Muse writer: escape "-" to avoid creating bullet lists
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/Muse.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index 404ebf7bc..ea46507db 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -287,7 +287,8 @@ conditionalEscapeString s =
if any (`elem` ("#*<=>[]|" :: String)) s ||
"::" `isInfixOf` s ||
"----" `isInfixOf` s ||
- "~~" `isInfixOf` s
+ "~~" `isInfixOf` s ||
+ "-" == s
then escapeString s
else s