Garmelon/task-machine
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Start work on the UI

Browse source
This commit is contained in:
Joscha 2018-09-12 19:57:14 +00:00
parent ef4a519e19
commit 223905301f
6 changed files with 280 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

7
app/Main.hs
View file

@ -6,9 +6,9 @@ import Control.Monad
import qualified Brick as B
import qualified Options.Applicative as O
import TaskMachine.TaskList
import TaskMachine.Todotxt
import TaskMachine.LTask
import TaskMachine.UI
import TaskMachine.UI.Types
data Options = Options
{ oTodofile :: FilePath
@ -36,5 +36,4 @@ main = do
result <- loadLTasks (oTodofile o)
case result of
Left parseError -> putStrLn parseError
--Right tasks -> mapM_ (putStrLn . formatTask . ltaskTask) tasks
Right tasks -> mapM_ (print . ltaskTask) tasks
Right tasks -> void $ B.defaultMain (myApp defaultTheme) (startUIState tasks)