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

Clean up old stuff

Browse source
This commit is contained in:
Joscha 2018-09-29 11:11:58 +00:00
parent efeeef39eb
commit 55e12992b3
4 changed files with 27 additions and 355 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/TaskMachine/UI/Behaviors/TaskEdit.hs
View file

@ -28,7 +28,7 @@ taskEditBehavior edit s (VTY.EvKey VTY.KHome []) = B.continue s{taskEdit=Just (
taskEditBehavior edit s (VTY.EvKey VTY.KEnd []) = B.continue s{taskEdit=Just (B.applyEdit T.gotoEOL edit)}
taskEditBehavior edit s (VTY.EvKey VTY.KEnter []) = do
let newState = finishEdit edit s
liftIO $ saveUIState newState
liftIO $ saveTasks newState
B.continue newState
taskEditBehavior edit s e = do
newEdit <- B.handleEditorEvent e edit