A nested list can be ordered or unordered

2025-05-20 16:47:58 -04:00
parent 2a3dddc7b0
commit 9b1c51897c
1 changed files with 2 additions and 1 deletions
--- 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.