From 6be2e4339753a3dc6e00a4f07b9315e131fad5be Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Wed, 19 Sep 2018 14:06:14 +0300 Subject: Muse reader: use openTag and closeTag everywhere --- src/Text/Pandoc/Readers/Muse.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 4c6d78d1b..7f0bd374f 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -873,8 +873,8 @@ inlineTag :: PandocMonad m => String -- ^ Tag name -> MuseParser m (F Inlines) inlineTag tag = try $ do - htmlTag (~== TagOpen tag []) - mconcat <$> manyTill inline (void $ htmlTag (~== TagClose tag)) + openTag tag + mconcat <$> manyTill inline (closeTag tag) -- | Parse strong inline markup, indicated by @**@. strong :: PandocMonad m => MuseParser m (F Inlines) @@ -918,8 +918,8 @@ verbatimTag = return . B.text . snd <$> htmlElement "verbatim" -- | Parse @\@ tag. classTag :: PandocMonad m => MuseParser m (F Inlines) classTag = do - (TagOpen _ attrs, _) <- htmlTag (~== TagOpen "class" []) - res <- manyTill inline (void $ htmlTag (~== TagClose "class")) + attrs <- openTag "class" + res <- manyTill inline $ closeTag "class" let classes = maybe [] words $ lookup "name" attrs return $ B.spanWith ("", classes, []) <$> mconcat res -- cgit v1.2.3