From 9b1c51897c059d9c3b55415a3bf9df6ffb67266e Mon Sep 17 00:00:00 2001
From: Aadhavan Srinivasan <aadhavan@twomorecents.org>
Date: Tue, 20 May 2025 16:47:58 -0400
Subject: [PATCH] A nested list can be ordered or unordered

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

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 9a99fb1..c9370d5 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -292,7 +292,8 @@ parseListNested = do
   let firstCharParser = string "    " <++ string "\t"
   let restOfLineParser = manyTill get (void (char '\n') <++ eof)
   lines <- greedyParse1 (firstCharParser *> restOfLineParser)
-  let linesParsed = fst $ leftmostLongestParse parseUnorderedList (init $ unlines lines)
+  let linesParsed = fst $ leftmostLongestParse (parseUnorderedList <++ parseOrderedList) (init $ unlines lines)
+  when (null (show linesParsed)) pfail
   return linesParsed
 
 -- Parse an unordered list line item.