@@ -319,7 +319,7 @@ verseTag = do
319319 parseFromString verseLines (intercalate "\n" $ dropSpacePrefix $ splitOn "\n" $ lchop content)
320320
321321commentTag :: PandocMonad m => MuseParser m (F Blocks)
322−commentTag = parseHtmlContent "comment" anyChar >> return mempty
322+commentTag = htmlElement "comment" >> return mempty
323323
324324-- Indented paragraph is either center, right or quote
325325para :: PandocMonad m => MuseParser m (F Blocks)
@@ -679,9 +679,7 @@ strikeoutTag :: PandocMonad m => MuseParser m (F Inlines)
679679strikeoutTag = inlineTag B.strikeout "del"
680680
681681verbatimTag :: PandocMonad m => MuseParser m (F Inlines)
682−verbatimTag = do
683− content <- parseHtmlContent "verbatim" anyChar
684− return $ return $ B.text content
682+verbatimTag = return . B.text . snd <$> htmlElement "verbatim"
685683
686684nbsp :: PandocMonad m => MuseParser m (F Inlines)
687685nbsp = try $ do