From fd6d39ecd6ee920ee795d6001672087842d338ab Mon Sep 17 00:00:00 2001
From: Aadhavan Srinivasan <aadhavan@twomorecents.org>
Date: Tue, 10 Jun 2025 09:09:53 -0400
Subject: [PATCH] Parse space at beginning of list

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

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 9e54d17..42e8beb 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -420,7 +420,7 @@ parseUnorderedList = do
 -- --------
 
 parseOListItem :: Parser MdToken
-parseOListItem = try parseOListParaItem <|> parseOListLineItem
+parseOListItem = space *> (try parseOListParaItem <|> parseOListLineItem)
 
 -- Parses the first element of an ordered list, which must start with '1.'
 parseFirstOListItem :: Parser MdToken