hypsibius/src/Hypsibius/Event.hs

module Hypsibius.Event where

import           Brick (BrickEvent, EventM, Next)
import qualified Brick
import qualified Graphics.Vty.Input.Events as Vty

import qualified Hypsibius.State as State

data Event = Event

handle :: State.State -> BrickEvent Int Event -> EventM Int (Next State.State)
handle s (Brick.VtyEvent (Vty.EvKey Vty.KEsc _)) = Brick.halt s
handle s _ = Brick.continue s

initialize :: State.State -> EventM Int State.State
initialize s = return s