diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-28 23:22:11 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-29 04:52:51 +0300 |
| commit | 60b2863e90eec6a1f8dd053b363eb93cc068a79b (patch) | |
| tree | e5a6257dc8739bad3d1c52d2cef8f33cbed6dad6 | |
| parent | d2e4790b501ec89f41702ad2c8815bf179b45ae9 (diff) | |
| download | pandoc-60b2863e90eec6a1f8dd053b363eb93cc068a79b.tar.gz | |
Muse reader: parse <comment> and <verbatim> without parseFromString
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 6 |
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 |