15 lines
321 B
Haskell
15 lines
321 B
Haskell
module Main where
|
|
|
|
import Control.Monad
|
|
|
|
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
|