From 5ab1162def4e6379c84e3363d917252155d9239a Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 18 Aug 2017 21:46:55 -0700
Subject: Markdown reader: fixed parsing of fenced code after list...

...when there is no intervening blank line.

Closes #3733.
---
 src/Text/Pandoc/Readers/Markdown.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src')

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
 
-- 
cgit v1.2.3