aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index cc9e9b71f..26263d674 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -868,7 +868,10 @@ rawListItem :: PandocMonad m
rawListItem start = try $ do
start
first <- listLineCommon
- rest <- many (notFollowedBy listStart >> notFollowedBy blankline >> listLine)
+ rest <- many (do notFollowedBy listStart
+ notFollowedBy (() <$ codeBlockFenced)
+ notFollowedBy blankline
+ listLine)
blanks <- many blankline
return $ unlines (first:rest) ++ blanks