From 628d85a8f3a2452b0dbc1f5c765bc4220b150462 Mon Sep 17 00:00:00 2001
From: Pagwin <dev@pagwin.xyz>
Date: Wed, 10 Dec 2025 15:16:11 -0500
Subject: [PATCH] handled nested lists

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

diff --git a/src/Markdown.hs b/src/Markdown.hs
index 38e61de..85bd3af 100644
--- a/src/Markdown.hs
+++ b/src/Markdown.hs
@@ -131,11 +131,11 @@ blockquoteBlock = BlockQuote . Q . concat <$> (some blockquoteLine)
 -- nesting amount
 listBlock :: (Logger m, Characters s) => ListType -> Parser s m prefix -> (Int -> Parser s m List) -> Int -> Parser s m Element
 listBlock list_type prefix child_parser_factory nest_level = do
-  error "unhandled ident_level"
   items <- some $ (try (listItem <* notFollowedBy blockEnding)) <|> (listItem <* lineEnding)
   pure $ List $ L {list_type, items}
   where
     listItem = do
+      count nest_level ((try $ void $ char '\t') <|> (void $ string "    "))
       prefix
       content <- many inlineText
       child <- optional $ child_parser_factory $ nest_level + 1