A document can consist of unordered lists as well

2025-05-14 21:40:03 -05:00
parent ee453c0259
commit 8c220cc800
1 changed files with 1 additions and 1 deletions
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -332,5 +332,5 @@ parseUnorderedList = do
 -- Parse a document, which is multiple paragraphs.
 parseDocument :: ReadP MdToken
 parseDocument = do
-  res <- manyTill (parseHeader <++ parseBlockquote <++ parsePara) eof
+  res <- manyTill (parseHeader <++ parseBlockquote <++ parseUnorderedList <++ parsePara) eof
  return (Document res)