@@ -728,7 +728,7 @@ code = try $ do
729codeTag :: PandocMonad m => MuseParser m (F Inlines)
729codeTag :: PandocMonad m => MuseParser m (F Inlines)
730codeTag = do
730codeTag = do
731− (attrs, content) <- parseHtmlContentWithAttrs "code" anyChar
731+ (attrs, content) <- htmlElement "code"
732 return $ return $ B.codeWith attrs content
732 return $ return $ B.codeWith attrs content
734inlineLiteralTag :: PandocMonad m => MuseParser m (F Inlines)
734inlineLiteralTag :: PandocMonad m => MuseParser m (F Inlines)