From 97c9fe12c633804f16e303a96fea75fc9126fbc5 Mon Sep 17 00:00:00 2001 From: Sascha Wilde Date: Wed, 15 Nov 2017 23:20:39 +0100 Subject: [PATCH] Fix performance issue for longer lists. Fixes #4067. --- src/Text/Pandoc/Readers/Creole.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Text/Pandoc/Readers/Creole.hs b/src/Text/Pandoc/Readers/Creole.hs index b4eb6eaefd85..505d1686d946 100644 --- a/src/Text/Pandoc/Readers/Creole.hs +++ b/src/Text/Pandoc/Readers/Creole.hs @@ -194,7 +194,7 @@ endOfParaElement = lookAhead $ endOfInput <|> endOfPara endOfPara = try $ blankline >> skipMany1 blankline startOf :: PandocMonad m => CRLParser m a -> CRLParser m () startOf p = try $ blankline >> p >> return mempty - startOfList = startOf $ anyList 1 + startOfList = startOf $ anyListItem 1 startOfTable = startOf table startOfHeader = startOf header startOfNowiki = startOf nowiki