From 8c220cc800cc94e1161cd86958efc8e9aaae89b5 Mon Sep 17 00:00:00 2001
From: Rockingcool <aadhavan@twomorecents.org>
Date: Wed, 14 May 2025 21:40:03 -0500
Subject: [PATCH] A document can consist of unordered lists as well

---
 src/MdToHTML.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index d16a38b..d676876 100644
--- 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)