From 7a3a8790de175c9a21d13786214fdea4bb157b3d Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Fri, 4 Aug 2017 01:41:45 +0300 Subject: Muse reader: do not allow headers in blockquotes (#3831) --- src/Text/Pandoc/Readers/Muse.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 537596216..ca40cebe3 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -244,7 +244,7 @@ rightTag :: PandocMonad m => MuseParser m (F Blocks) rightTag = blockTag id "right" quoteTag :: PandocMonad m => MuseParser m (F Blocks) -quoteTag = blockTag B.blockQuote "quote" +quoteTag = withQuoteContext InDoubleQuote $ blockTag B.blockQuote "quote" commentTag :: PandocMonad m => MuseParser m (F Blocks) commentTag = parseHtmlContent "comment" anyChar >> return mempty -- cgit v1.2.3