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

Use liftIO instead of suspendAndResume

Browse source
This commit is contained in:
Joscha 2018-09-29 10:59:36 +00:00
parent a8bdc47b2c
commit efeeef39eb
3 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -4,6 +4,7 @@ module TaskMachine.UI.Behaviors.TaskEdit
import qualified Brick as B
import qualified Brick.Widgets.Edit as B
import Control.Monad.Trans
import qualified Data.Text.Zipper as T
import qualified Graphics.Vty as VTY
import Text.Megaparsec
@ -25,10 +26,10 @@ taskEditBehavior :: B.Editor String RName -> UIState -> VTY.Event -> NewState
taskEditBehavior _ s (VTY.EvKey VTY.KEsc []) = B.continue s{taskEdit=Nothing}
taskEditBehavior edit s (VTY.EvKey VTY.KHome []) = B.continue s{taskEdit=Just (B.applyEdit T.gotoBOL edit)}
taskEditBehavior edit s (VTY.EvKey VTY.KEnd []) = B.continue s{taskEdit=Just (B.applyEdit T.gotoEOL edit)}
taskEditBehavior edit s (VTY.EvKey VTY.KEnter []) = B.suspendAndResume $ do
taskEditBehavior edit s (VTY.EvKey VTY.KEnter []) = do
let newState = finishEdit edit s
saveUIState newState
pure newState
liftIO $ saveUIState newState
B.continue newState
taskEditBehavior edit s e = do
newEdit <- B.handleEditorEvent e edit
B.continue s{taskEdit=Just newEdit}