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

Clean up

Browse source
This commit is contained in:
Joscha 2018-09-30 21:39:50 +00:00
parent cad2f5741f
commit 36e90895f0
2 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/TaskMachine/UI.hs
View file

@ -35,9 +35,8 @@ closeBehavior f s e = f s e -- wrapper around anoth
popupBehavior :: Popup RName (UIState -> NewState) -> UIState -> VTY.Event -> NewState
popupBehavior p s (VTY.EvKey VTY.KEnter []) =
case popupSelection p of
Nothing -> B.continue s{errorPopup=Nothing}
Just action -> do
action s{errorPopup=Nothing}
Nothing -> B.continue s{errorPopup=Nothing}
Just action -> action s{errorPopup=Nothing}
popupBehavior p s e = do
newPopup <- handlePopupEvent e p
B.continue s{errorPopup=Just newPopup}