Load tasks from file

app/Main.hs

@@ -1,10 +1,40 @@
 module Main where
 
+import           Control.Applicative
 import           Control.Monad
 
-import qualified Brick          as B
+import qualified Brick                as B
+import qualified Options.Applicative  as O
 
+import           TaskMachine.TaskList
+import           TaskMachine.Todotxt
 import           TaskMachine.UI
 
+data Options = Options
+  { oTodofile :: FilePath
+  } deriving (Show)
+
+opts :: O.Parser Options
+opts = pure Options
+  <*> todofile
+  where
+    todofile = O.strArgument
+      (  O.help "The file containing all your tasks"
+      <> O.metavar "TODOFILE"
+      )
+
+optsInfo :: O.ParserInfo Options
+optsInfo = O.info (opts <**> O.helper)
+  (  O.fullDesc
+  -- <> O.progDesc "program description"
+  -- <> O.header "help header"
+  )
+
 main :: IO()
-main = void $ B.defaultMain myApp startState
+main = do
+  o <- O.execParser optsInfo
+  result <- loadLTasks (oTodofile o)
+  case result of
+    Left parseError -> putStrLn parseError
+    --Right tasks -> mapM_ (putStrLn . formatTask . ltaskTask) tasks
+    Right tasks -> mapM_ (print . ltaskTask) tasks