From 4893b40cc981f3ec0db1ee9ef2276743477b1935 Mon Sep 17 00:00:00 2001
From: Pagwin <pgp2024@pagwin.xyz>
Date: Sat, 1 Nov 2025 15:41:40 -0400
Subject: [PATCH] minor LLM fuckup fixes

---
 app/IR.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/app/IR.hs b/app/IR.hs
index 378c068..766ee89 100644
--- a/app/IR.hs
+++ b/app/IR.hs
@@ -9,7 +9,6 @@ data Element
   | Code Code
   | BlockQuote BlockQuote
   | List List
-  | Table Table
   | HTML HTML
   | Paragraph Paragraph
   | HorizontalRule
@@ -33,6 +32,8 @@ data ListItem = LI
     children :: [List]
   }
 
+data ListType = Ordered | Unordered
+
 data List = L
   { list_type :: ListType,
     items :: [ListItem]