added quit event

2024-07-31 18:57:13 -04:00 · 2024-07-31 18:57:13 -04:00 · cc6afa222d
parent 633a1b7b24
commit cc6afa222d
1 changed files with 9 additions and 1 deletions
--- 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