diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-19 14:06:14 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-19 14:06:14 +0300 |
| commit | 6be2e4339753a3dc6e00a4f07b9315e131fad5be (patch) | |
| tree | 602601daf99cfc387e514655df529f1bac9528aa /src/Text | |
| parent | 94b9561e056f44eea891f394bde6547bf05dcb1b (diff) | |
| download | pandoc-6be2e4339753a3dc6e00a4f07b9315e131fad5be.tar.gz | |
Muse reader: use openTag and closeTag everywhere
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 @\<class>@ 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 |