Try out some basic sqlite stuff

src/TaskMachine/Database.hs

@@ -0,0 +1,30 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module TaskMachine.Database
+  ( initializeNewDB
+  ) where
+
+--import qualified Data.Text              as T
+import qualified Database.SQLite.Simple as DB
+
+initializeNewDB :: DB.Connection -> IO ()
+initializeNewDB c = do
+  DB.execute_ c createTaskTable
+  DB.execute_ c createVersionTable
+  DB.execute c fillVersionTable (DB.Only (1 :: Integer))
+  where
+    createTaskTable =
+      "CREATE TABLE IF NOT EXISTS tasks (\
+      \  id INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,\
+      \  deadline TEXT,\
+      \  formula TEXT,\
+      \  description TEXT NOT NULL,\
+      \  repetitions_total INTEGER NOT NULL DEFAULT 1,\
+      \  repetitions_done INTEGER NOT NULL DEFAULT 0\
+      \)"
+    createVersionTable =
+      "CREATE TABLE version (\
+      \  version_number INTEGER\
+      \)"
+    fillVersionTable =
+      "INSERT INTO version (version_number) VALUES (?)"