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]