aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-01-28 23:22:11 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-01-29 04:52:51 +0300
commit60b2863e90eec6a1f8dd053b363eb93cc068a79b (patch)
treee5a6257dc8739bad3d1c52d2cef8f33cbed6dad6 /src/Text
parentd2e4790b501ec89f41702ad2c8815bf179b45ae9 (diff)
downloadpandoc-60b2863e90eec6a1f8dd053b363eb93cc068a79b.tar.gz
Muse reader: parse <comment> and <verbatim> without parseFromString
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/Muse.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 97f8a963f..f15ea085f 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -319,7 +319,7 @@ verseTag = do
parseFromString verseLines (intercalate "\n" $ dropSpacePrefix $ splitOn "\n" $ lchop content)
commentTag :: PandocMonad m => MuseParser m (F Blocks)
-commentTag = parseHtmlContent "comment" anyChar >> return mempty
+commentTag = htmlElement "comment" >> return mempty
-- Indented paragraph is either center, right or quote
para :: PandocMonad m => MuseParser m (F Blocks)
@@ -679,9 +679,7 @@ strikeoutTag :: PandocMonad m => MuseParser m (F Inlines)
strikeoutTag = inlineTag B.strikeout "del"
verbatimTag :: PandocMonad m => MuseParser m (F Inlines)
-verbatimTag = do
- content <- parseHtmlContent "verbatim" anyChar
- return $ return $ B.text content
+verbatimTag = return . B.text . snd <$> htmlElement "verbatim"
nbsp :: PandocMonad m => MuseParser m (F Inlines)
nbsp = try $ do