aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-01-28 23:39:31 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-01-29 04:58:43 +0300
commitff31602267d2d8aebda319cd8f55ba5e1399bb1f (patch)
tree4a58161e26ed631d9dbee916e50f419ffb702fff /src
parent60b2863e90eec6a1f8dd053b363eb93cc068a79b (diff)
downloadpandoc-ff31602267d2d8aebda319cd8f55ba5e1399bb1f.tar.gz
Muse reader: parse inline <literal> without parseFromString
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/Muse.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index f15ea085f..6d9794f9e 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -704,8 +704,7 @@ codeTag = do
inlineLiteralTag :: PandocMonad m => MuseParser m (F Inlines)
inlineLiteralTag = do
guardDisabled Ext_amuse -- Text::Amuse does not support <literal>
- (attrs, content) <- parseHtmlContentWithAttrs "literal" anyChar
- return $ return $ rawInline (attrs, content)
+ (return . rawInline) <$> htmlElement "literal"
where
-- FIXME: Emacs Muse inserts <literal> without style into all output formats, but we assume HTML
format (_, _, kvs) = fromMaybe "html" $ lookup "style" kvs