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.

app/Main.hs

@@ -6,22 +6,22 @@ import           Control.Applicative
 import           Control.Exception
 import           Control.Monad
 import           Data.List
-import           Data.Maybe
+--import           Data.Maybe
 import           System.Exit
 import           System.IO.Error
 
 import qualified Brick.Themes           as B
 import qualified Data.ConfigFile        as C
-import qualified Data.Text              as T
-import           Data.Time.Calendar
-import           Data.Time.Clock
+--import qualified Data.Text              as T
+--import           Data.Time.Calendar
+--import           Data.Time.Clock
 import qualified Database.SQLite.Simple as DB
 import qualified Options.Applicative    as O
 import qualified System.Posix.User      as P
 
 import qualified TaskMachine.Config     as TM
-import qualified TaskMachine.Database   as TM
-import qualified TaskMachine.DateExpr   as TM
+--import qualified TaskMachine.Database   as TM
+--import qualified TaskMachine.DateExpr   as TM
 import qualified TaskMachine.UI         as TM
 
 -- TODO: When adding oConfigFile back, make oTaskDB a Maybe FilePath.
@@ -208,7 +208,7 @@ main = do
   -- ... and initialize db
   act $ "Using db at " ++ show (TM.cTaskDB config) ++ "."
   DB.withConnection (TM.cTaskDB config) $ \c -> do
-    TM.initializeNewDB c
+    --TM.initializeNewDB c
 
     -- TESTING
     testDB c
@@ -217,7 +217,8 @@ main = do
     error "Implement UI" theme config
 
 testDB :: DB.Connection -> IO ()
-testDB c = do
+testDB _ = do
+  {-
   now <- utctDay <$> getCurrentTime
   let deadlineBefore = Just $ addDays (-2) now
       deadlineAfter = Just $ addDays 2 now
@@ -242,3 +243,5 @@ testDB c = do
   putStrLn "RELEVANT TASKS"
   tasks2 <- TM.selectRelevantTasks c now
   forM_ tasks2 $ print . TM.rowDescription
+  -}
+  putStrLn "Everything works (because there's nothing here...)"