diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-20 11:24:19 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-20 12:16:34 +0300 |
| commit | 268c73c873b93daf3321d38d659be7849579c7f0 (patch) | |
| tree | 7eb4e2c0db9e395cfc4be0ea1a08c89b98af2882 | |
| parent | d63bba30661182f15e56d07997ee0f7b539eb2ce (diff) | |
| download | pandoc-268c73c873b93daf3321d38d659be7849579c7f0.tar.gz | |
Muse writer: escape ";" to avoid accidental comments
| -rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 3 | ||||
| -rw-r--r-- | test/Tests/Writers/Muse.hs | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index e72fcf52b..eb1821922 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -290,7 +290,8 @@ conditionalEscapeString s = "::" `isInfixOf` s || "----" `isInfixOf` s || "~~" `isInfixOf` s || - "-" == s + "-" == s || + ";" == s then escapeString s else s diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs index 2728fd9f9..04f6de449 100644 --- a/test/Tests/Writers/Muse.hs +++ b/test/Tests/Writers/Muse.hs @@ -321,6 +321,7 @@ tests = [ testGroup "block elements" , "" , " <verbatim>-</verbatim> bar" ] + , "escape ; to avoid accidental comments" =: text "; foo" =?> "<verbatim>;</verbatim> foo" ] , testGroup "emphasis" [ "emph" =: emph (text "foo") =?> "<em>foo</em>" |