Another small performance improvement.

garyross · Dec 8, 2013 · 8e255fa · 8e255fa
1 parent e2c4156
commit 8e255fa
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
@@ -733,9 +733,11 @@ listLine = try $ do
                      many (spaceChar)
                      listStart)
   notFollowedBy' $ htmlTag (~== TagClose "div")
-  chunks <- manyTill (liftM snd (htmlTag isCommentTag)
-             <|> many1 (satisfy (/='\n'))
-             <|> count 1 anyChar) newline
+  chunks <- manyTill
+              (  many1 (satisfy $ \c -> c /= '\n' && c /= '<')
+             <|> liftM snd (htmlTag isCommentTag)
+             <|> count 1 anyChar
+              ) newline
   return $ concat chunks
 
 -- parse raw text for one list item, excluding start marker and continuations