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

Replace crashes with popups

Browse source
This commit is contained in:
Joscha 2018-10-24 16:54:21 +00:00
parent c7f67945d8
commit c557b89e46
2 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -113,7 +113,7 @@ actionEditNew s = do
actionEditSelected :: Action
actionEditSelected s =
case selectedTask (tasks s) of
Nothing -> error "no task selected" -- TODO: Add popup notification
Nothing -> pure s
Just t ->
let edit = taskEdit RTaskEdit t ExistingTask
in pure s{editor=Just edit}
@ -194,7 +194,12 @@ actionFinishEdit t = pure . finishEdit t
finishEdit :: TaskEdit RName -> UIState -> UIState
finishEdit edit s =
case editedTask edit of
Left e -> error e -- TODO: Error popup
Left e ->
let p = popup "Syntax error" e
[ ("Continue editing", B.continue)
, ("Abort", \s' -> B.continue s'{editor=Nothing})
]
in s{errorPopup=Just p}
Right task -> s{tasks=modify task, editor=Nothing}
where
modify :: Task -> TaskList RName