An unordered list must end in a blank line.
This commit is contained in:
@@ -369,6 +369,7 @@ parseUListItem = parseUListParaItem <++ parseUListLineItem <++ parseUListNested
|
|||||||
parseUnorderedList :: ReadP MdToken
|
parseUnorderedList :: ReadP MdToken
|
||||||
parseUnorderedList = do
|
parseUnorderedList = do
|
||||||
lineItems <- greedyParse1 parseUListItem
|
lineItems <- greedyParse1 parseUListItem
|
||||||
|
void (char '\n') <++ eof -- A list must end in an extra newline or eof
|
||||||
return $ UnordList lineItems
|
return $ UnordList lineItems
|
||||||
|
|
||||||
-- Parse a document, which is multiple paragraphs.
|
-- Parse a document, which is multiple paragraphs.
|
||||||
|
Reference in New Issue
Block a user