@ -369,6 +369,7 @@ parseUListItem = parseUListParaItem <++ parseUListLineItem <++ parseUListNested
parseUnorderedList :: ReadP MdToken
parseUnorderedList = do
lineItems <- greedyParse1 parseUListItem
void (char '\n') <++ eof -- A list must end in an extra newline or eof
return $ UnordList lineItems
-- Parse a document, which is multiple paragraphs.