From 4e5c07a070c285fa6e9431a576b78cc7d591ca11 Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jonathan@jlamothe.net>
Date: Fri, 9 Aug 2024 14:54:50 -0400
Subject: [PATCH] re-enable q to quit from within edit mode

---
 src/Hamming/App/Events.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Hamming/App/Events.hs b/src/Hamming/App/Events.hs
index 4323743..da729c9 100644
--- a/src/Hamming/App/Events.hs
+++ b/src/Hamming/App/Events.hs
@@ -46,6 +46,7 @@ import Hamming.App.Types
 -- | Handles an event
 eventHandler :: Handler
 eventHandler (VtyEvent (EvKey (KChar 'c') [MCtrl])) = halt
+eventHandler (VtyEvent (EvKey (KChar 'q') [])) = halt
 eventHandler (VtyEvent (EvKey (KChar 'c') [])) =
   modify $ hammingCode %~ setCheckBits
 eventHandler (VtyEvent (EvKey (KChar 'v') [])) =
@@ -57,7 +58,6 @@ eventHandler e = gets (^.appMode) >>= \case
   EditMode _  -> editHandler e
 
 displayHandler :: Handler
-displayHandler (VtyEvent (EvKey (KChar 'q') [])) = halt
 displayHandler (VtyEvent (EvKey (KChar 'e') [])) =
   modify $ appMode .~ EditMode initialEditor
 displayHandler _ = return ()