aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2017-11-21 17:41:29 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2017-11-22 01:22:43 +0300
commitdf3a80cc97e99a8f4fdb8bf80b5ca85a216111b2 (patch)
tree074cce164dd180d834df1d7b3b61a3b04683ce6a /src/Text/Pandoc
parentcf87ffe9ee87b5e908725616998724fca0d6a8fd (diff)
downloadpandoc-df3a80cc97e99a8f4fdb8bf80b5ca85a216111b2.tar.gz
Muse writer: escape only </code> inside code tag
Additional <verbatim> is not needed as <code> is verbatim already.
Diffstat (limited to 'src/Text/Pandoc')
-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 3a5eefc18..c834e5883 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -328,7 +328,7 @@ inlineToMuse (Quoted DoubleQuote lst) = do
-- so just fallback to expanding inlines.
inlineToMuse (Cite _ lst) = inlineListToMuse lst
inlineToMuse (Code _ str) = return $
- "<code>" <> text (conditionalEscapeString str) <> "</code>"
+ "<code>" <> text (substitute "</code>" "<</code><code>/code>" str) <> "</code>"
inlineToMuse (Math InlineMath str) =
lift (texMathToInlines InlineMath str) >>= inlineListToMuse
inlineToMuse (Math DisplayMath str) = do