summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-01-17 12:30:15 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-01-19 01:50:17 +0300
commit7e2c75c8653eb9ec64a19ac7d6f4677936fbb13b (patch)
tree082c64e8a27bd7bdc599a92c2317b8d830dbe009 /src
parentd0a895acee371b13a9c31873c10dd124e04564d1 (diff)
Muse reader: do not remove trailing whitespace from <code>
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/Muse.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index d378fe676..f0ac81f01 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -728,7 +728,7 @@ code = try $ do
codeTag :: PandocMonad m => MuseParser m (F Inlines)
codeTag = do
- (attrs, content) <- parseHtmlContentWithAttrs "code" anyChar
+ (attrs, content) <- htmlElement "code"
return $ return $ B.codeWith attrs content
inlineLiteralTag :: PandocMonad m => MuseParser m (F Inlines)