diff --git a/src/Hamming/App/Events.hs b/src/Hamming/App/Events.hs index 1763423..c4994a5 100644 --- a/src/Hamming/App/Events.hs +++ b/src/Hamming/App/Events.hs @@ -27,11 +27,19 @@ License along with this program. If not, see module Hamming.App.Events (eventHandler) where import Brick.Main (halt) +import Brick.Types (BrickEvent (VtyEvent)) +import Graphics.Vty.Input.Events + ( Event (EvKey) + , Key (KChar) + , Modifier (MCtrl) + ) import Hamming.App.Types -- | Handles an event eventHandler :: Handler -eventHandler = const halt +eventHandler (VtyEvent (EvKey (KChar 'c') [MCtrl])) = halt +eventHandler (VtyEvent (EvKey (KChar 'q') [])) = halt +eventHandler _ = return () --jl