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