aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSascha Wilde <wilde@sha-bang.de>2017-11-16 02:38:11 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2017-11-15 17:38:11 -0800
commit4e02ed5f5cd5cf4d07c7252f2aac9a83b9ca7463 (patch)
tree2e9c3aa230644ad2fee8f29d1f7e5432b30ea5e8
parent508aab0bd555b4ca7632a78957ebb91c758f0a7e (diff)
downloadpandoc-4e02ed5f5cd5cf4d07c7252f2aac9a83b9ca7463.tar.gz
Creole reader: Fix performance issue for longer lists. (#4075)
Fixes #4067.
-rw-r--r--src/Text/Pandoc/Readers/Creole.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Creole.hs b/src/Text/Pandoc/Readers/Creole.hs
index b4eb6eaef..505d1686d 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