@@ -704,8 +704,7 @@ codeTag = do
704704inlineLiteralTag :: PandocMonad m => MuseParser m (F Inlines)
705705inlineLiteralTag = do
706706 guardDisabled Ext_amuse -- Text::Amuse does not support <literal>
707− (attrs, content) <- parseHtmlContentWithAttrs "literal" anyChar
708− return $ return $ rawInline (attrs, content)
707+ (return . rawInline) <$> htmlElement "literal"
709708 where
710709 -- FIXME: Emacs Muse inserts <literal> without style into all output formats, but we assume HTML
711710 format (_, _, kvs) = fromMaybe "html" $ lookup "style" kvs