Parse space at beginning of list

2025-06-10 09:09:53 -04:00
parent 0f04342867
commit fd6d39ecd6
1 changed files with 1 additions and 1 deletions
--- 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