Rockingcool/md-to-html
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Try parsing an ordered list item, backtrack if not possible

Browse Source
This commit is contained in:
Aadhavan Srinivasan
2025-06-10 09:08:52 -04:00
parent b73d4131b6
commit 80ef93bbc9
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/MdToHTML.hs
View File

@@ -431,8 +431,8 @@ parseFirstOListItem = do
parseOrderedList :: Parser MdToken parseOrderedList :: Parser MdToken
parseOrderedList = do parseOrderedList = do
firstLine <- parseFirstOListItem firstLine <- try parseFirstOListItem
lineItems <- some parseOListItem lineItems <- many $ try parseOListItem
void (char '\n') <|> eof void (char '\n') <|> eof
return $ OrdList (firstLine : lineItems) return $ OrdList (firstLine : lineItems)