initial commit

app/TodoListItem.hs

@@ -0,0 +1,15 @@
+module TodoListItem where
+
+data TodoListItem = TodoListItem
+        { name :: String
+        , done :: Bool
+        }
+
+instance Show TodoListItem where
+        show (TodoListItem name done) =
+                s done ++ " " ++ name ++ "\n"
+            where
+                s True = "[x]"
+                s False = "[ ]"
+
+-- TODO: create a class to render items to html to make it easier to create everything for the website using the web primitives