Make project compile again

This commit also adds a few other files that I've been working on,
although most of it will get deleted again. This is just so I have them
logged in git.

src/TaskMachine/UI/ListScreen.hs

@@ -0,0 +1,42 @@
+module TaskMachine.UI.ListScreen where
+{-
+  ( ListScreen
+  , newListScreen
+  , renderListScreen
+  , updateListScreen
+  ) where
+
+import qualified Brick                  as B
+import qualified Brick.Widgets.List     as B
+import           Data.Time
+import qualified Graphics.Vty.Input.Events as VTY
+import qualified Data.Vector            as V
+import qualified Database.SQLite.Simple as DB
+
+import qualified TaskMachine.Database   as TM
+import qualified TaskMachine.Task       as TM
+import qualified TaskMachine.UI.Types   as TM
+
+type Res = TM.ResourceName
+
+newtype ListScreen = ListScreen (B.List Res TM.Task)
+
+newListScreen :: DB.Connection -> IO ListScreen
+newListScreen conn = do
+  today <- utctDay <$> getCurrentTime
+  relevant <- map TM.fromTaskRow <$> TM.selectRelevantTasks conn today
+  let sorted = relevant -- TM.sort??? relevant
+      vector = V.fromList sorted
+      list   = B.list TM.RTaskList vector 1
+  return $ ListScreen list
+
+renderTask :: Bool -> TM.Task -> B.Widget Res
+renderTask _ task = B.txt $ TM.taskDescription task
+
+renderListScreen :: Bool -> ListScreen -> B.Widget Res
+renderListScreen focused (ListScreen list) = B.renderList renderTask focused list
+
+updateListScreen :: VTY.Event -> ListScreen -> B.EventM Res ListScreen
+updateListScreen event (ListScreen list) =
+  ListScreen <$> B.handleListEventVi B.handleListEvent event list
+-}

src/TaskMachine/UI/Types.hs

@@ -0,0 +1,7 @@
+module TaskMachine.UI.Types
+  ( ResourceName(..)
+  ) where
+
+data ResourceName
+  = RTaskList
+  deriving (Eq, Ord, Show)