From 80ef93bbc9780ae5bd92897f5d27b5601d9d3c51 Mon Sep 17 00:00:00 2001
From: Aadhavan Srinivasan <aadhavan@twomorecents.org>
Date: Tue, 10 Jun 2025 09:08:52 -0400
Subject: [PATCH] Try parsing an ordered list item, backtrack if not possible

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

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index e1f0919..c2286ee 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -431,8 +431,8 @@ parseFirstOListItem = do
 
 parseOrderedList :: Parser MdToken
 parseOrderedList = do
-  firstLine <- parseFirstOListItem
-  lineItems <- some parseOListItem
+  firstLine <- try parseFirstOListItem
+  lineItems <- many $ try parseOListItem
   void (char '\n') <|> eof
   return $ OrdList (firstLine : lineItems)