@@ -873,8 +873,8 @@ inlineTag :: PandocMonad m
873 => String -- ^ Tag name
873 => String -- ^ Tag name
874 -> MuseParser m (F Inlines)
874 -> MuseParser m (F Inlines)
875inlineTag tag = try $ do
875inlineTag tag = try $ do
876− htmlTag (~== TagOpen tag [])
876+ openTag tag
877− mconcat <$> manyTill inline (void $ htmlTag (~== TagClose tag))
877+ mconcat <$> manyTill inline (closeTag tag)
879-- | Parse strong inline markup, indicated by @**@.
879-- | Parse strong inline markup, indicated by @**@.
880strong :: PandocMonad m => MuseParser m (F Inlines)
880strong :: PandocMonad m => MuseParser m (F Inlines)
@@ -918,8 +918,8 @@ verbatimTag = return . B.text . snd <$> htmlElement "verbatim"
918-- | Parse @\<class>@ tag.
918-- | Parse @\<class>@ tag.
919classTag :: PandocMonad m => MuseParser m (F Inlines)
919classTag :: PandocMonad m => MuseParser m (F Inlines)
920classTag = do
920classTag = do
921− (TagOpen _ attrs, _) <- htmlTag (~== TagOpen "class" [])
921+ attrs <- openTag "class"
922− res <- manyTill inline (void $ htmlTag (~== TagClose "class"))
922+ res <- manyTill inline $ closeTag "class"
923 let classes = maybe [] words $ lookup "name" attrs
923 let classes = maybe [] words $ lookup "name" attrs
924 return $ B.spanWith ("", classes, []) <$> mconcat res
924 return $ B.spanWith ("", classes, []) <$> mconcat res