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

Reload tasks when pressing 'r'

Browse source
This commit is contained in:
Joscha 2018-09-29 11:30:07 +00:00
parent 3f88a247ce
commit 9fc57bd056
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/TaskMachine/UI/Behaviors.hs
View file

@ -44,6 +44,10 @@ taskEditBehavior edit s e = do
B.continue s{taskEdit=Just newEdit} B.continue s{taskEdit=Just newEdit}
taskListBehavior :: UIState -> VTY.Event -> NewState taskListBehavior :: UIState -> VTY.Event -> NewState
-- Reload while running
taskListBehavior s (VTY.EvKey (VTY.KChar 'r') []) = do
newState <- liftIO $ loadTasks s
B.continue newState
-- Mark/unmark a task as completed -- Mark/unmark a task as completed
taskListBehavior s (VTY.EvKey (VTY.KChar 'x') []) = undefined s taskListBehavior s (VTY.EvKey (VTY.KChar 'x') []) = undefined s
-- Delete tasks -- Delete tasks