@@ -873,8 +873,8 @@ inlineTag :: PandocMonad m
873873 => String -- ^ Tag name
874874 -> MuseParser m (F Inlines)
875875inlineTag tag = try $ do
876− htmlTag (~== TagOpen tag [])
877− mconcat <$> manyTill inline (void $ htmlTag (~== TagClose tag))
876+ openTag tag
877+ mconcat <$> manyTill inline (closeTag tag)
878878
879879-- | Parse strong inline markup, indicated by @**@.
880880strong :: PandocMonad m => MuseParser m (F Inlines)
@@ -918,8 +918,8 @@ verbatimTag = return . B.text . snd <$> htmlElement "verbatim"
918918-- | Parse @\<class>@ tag.
919919classTag :: PandocMonad m => MuseParser m (F Inlines)
920920classTag = do
921− (TagOpen _ attrs, _) <- htmlTag (~== TagOpen "class" [])
922− res <- manyTill inline (void $ htmlTag (~== TagClose "class"))
921+ attrs <- openTag "class"
922+ res <- manyTill inline $ closeTag "class"
923923 let classes = maybe [] words $ lookup "name" attrs
924924 return $ B.spanWith ("", classes, []) <$> mconcat res
925925