From 45115c765cb4db1259339b091efcc636913b830a Mon Sep 17 00:00:00 2001
From: Rockingcool <aadhavan@twomorecents.org>
Date: Tue, 20 May 2025 12:23:27 -0500
Subject: [PATCH] An unordered list must end in a blank line.

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

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 4179423..f112536 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -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.