Begin UI restructure

This commit is contained in:
Joscha 2018-09-27 16:41:43 +00:00
parent 5de27b195b
commit d8e0e1a867
5 changed files with 112 additions and 31 deletions

View file

@ -2,14 +2,12 @@ module Main where
import Control.Monad
import qualified Brick as B
import qualified Brick as B
import TaskMachine.Options
import TaskMachine.UI
import TaskMachine.UI.TaskList
main :: IO()
main = do
o <- parseOptions
state <- loadTasks (startUIState o)
void $ B.defaultMain myApp state
void $ B.defaultMain myApp (startUIState o)