diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-22 15:22:39 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-22 15:22:39 +0300 |
| commit | 87e10ac28be163a6319ad482c5a207275b23a2a0 (patch) | |
| tree | 951e8a56c480739b2a08a1581a319ac718578174 /src/Text | |
| parent | e32657a6713dc113d511f409f0eb1a7570915d28 (diff) | |
| download | pandoc-87e10ac28be163a6319ad482c5a207275b23a2a0.tar.gz | |
Muse reader: don't allow blockquotes within lists
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 2e4b58de7..c0f8bfa01 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -315,7 +315,8 @@ commentTag = parseHtmlContent "comment" anyChar >> return mempty para :: PandocMonad m => MuseParser m (F Blocks) para = do indent <- length <$> many spaceChar - let f = if indent >= 2 && indent < 6 then B.blockQuote else id + st <- stateParserContext <$> getState + let f = if st /= ListItemState && indent >= 2 && indent < 6 then B.blockQuote else id fmap (f . B.para) . normalizeInlinesF . mconcat <$> many1Till inline endOfParaElement where endOfParaElement = lookAhead $ endOfInput <|> endOfPara <|> newBlockElement |