Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Markdown reader: Fixed bug with literal </div> in lists.

Browse source 
Closes #1078.
This commit is contained in:
John MacFarlane 2013-12-07 17:12:52 -08:00
parent 4f64a4bc3b
commit e5a7c31a32
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Text/Pandoc/Readers/Markdown.hs
View file

@ -732,8 +732,9 @@ listLine = try $ do
notFollowedBy' (do indentSpaces
many (spaceChar)
listStart)
chunks <- manyTill (liftM snd (htmlTag isCommentTag) <|> count 1 (satisfy (/='<'))
<|> (notFollowedBy' (htmlTag isBlockTag) >> count 1 anyChar)) newline
notFollowedBy' $ htmlTag (~== TagClose "div")
chunks <- manyTill (liftM snd (htmlTag isCommentTag) <|> count 1 anyChar)
newline
return $ concat chunks
-- parse raw text for one list item, excluding start marker and continuations
@ -760,7 +761,7 @@ listContinuationLine :: MarkdownParser String
listContinuationLine = try $ do
notFollowedBy blankline
notFollowedBy' listStart
notFollowedBy' $ try $ skipMany spaceChar >> htmlTag (~== TagClose "div")
notFollowedBy' $ htmlTag (~== TagClose "div")
optional indentSpaces
result <- anyLine
return $ result ++ "\n"