Load tasks on startup again

This commit is contained in:
Joscha 2018-09-27 23:39:22 +00:00
parent d8e0e1a867
commit c1b1fddb76
5 changed files with 22 additions and 18 deletions

View file

@ -10,4 +10,5 @@ import TaskMachine.UI
main :: IO()
main = do
o <- parseOptions
void $ B.defaultMain myApp (startUIState o)
state <- loadTasks $ startUIState o
void $ B.defaultMain myApp state