Begin UI restructure
This commit is contained in:
parent
5de27b195b
commit
d8e0e1a867
5 changed files with 112 additions and 31 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue