aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2017-08-03 19:11:00 +0300
committerJohn MacFarlane <jgm@berkeley.edu>2017-08-03 09:11:00 -0700
commit38b6adaac09d63501d2febb034dcd776b6de1654 (patch)
treea44cf20bc976323cace9f6ba2381c3c2b748a029
parentced834076d8f4463c60a4f739a3d92a56d3e2183 (diff)
downloadpandoc-38b6adaac09d63501d2febb034dcd776b6de1654.tar.gz
Muse reader: do not parse blocks inside comments (#3828)
-rw-r--r--src/Text/Pandoc/Readers/Muse.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 9d967a9de..537596216 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -247,7 +247,7 @@ quoteTag :: PandocMonad m => MuseParser m (F Blocks)
quoteTag = blockTag B.blockQuote "quote"
commentTag :: PandocMonad m => MuseParser m (F Blocks)
-commentTag = parseHtmlContent "comment" block >> return mempty
+commentTag = parseHtmlContent "comment" anyChar >> return mempty
-- Indented block is either center, right or quote
indentedLine :: PandocMonad m => MuseParser m (Int, String)