From cc6afa222da21669dadd9cfadac4051ed759b2bd Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jonathan@jlamothe.net>
Date: Wed, 31 Jul 2024 18:57:13 -0400
Subject: [PATCH] added quit event

---
 src/Hamming/App/Events.hs | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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