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

3
src/TaskMachine/UI.hs
View file

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

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

@ -11,9 +11,9 @@ import qualified Graphics.Vty as VTY
import Text.Megaparsec
import TaskMachine.Task
import TaskMachine.UI.Stuff
import TaskMachine.UI.TaskList
import TaskMachine.UI.Types
import TaskMachine.UI.Stuff
startEdit :: UIState -> UIState
startEdit s =