From 84415db96a6a73ba0a8c55338b636c0b586f430b Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jonathan@jlamothe.net>
Date: Thu, 22 Aug 2024 16:20:34 -0400
Subject: [PATCH] removed unnecessary `KeyEvents` definition

---
 src/Abacus/App/Events.hs | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/src/Abacus/App/Events.hs b/src/Abacus/App/Events.hs
index 6cd5f18..dcf2c3c 100644
--- a/src/Abacus/App/Events.hs
+++ b/src/Abacus/App/Events.hs
@@ -34,7 +34,6 @@ import Brick.Keybindings
   , KeyConfig
   , KeyDispatcher
   , KeyEventHandler
-  , KeyEvents
   , bind
   , ctrl
   , keyDispatcher
@@ -56,7 +55,7 @@ appKeyDispatcher = fromRight (error "can't build key dispatcher") $
 
 -- | The key configuration
 keyConfig :: KeyConfig KeyEventID
-keyConfig = newKeyConfig appKeyEvents keyBindings []
+keyConfig = newKeyConfig (keyEvents []) keyBindings []
 
 -- | Binds a "KeyEventID" to its associated action
 eventBindings :: [KeyEventHandler KeyEventID (EventM () AppState)]
@@ -68,10 +67,6 @@ eventBindings =
     modify moveDown
   ]
 
--- | Names the individual key events
-appKeyEvents :: KeyEvents KeyEventID
-appKeyEvents = keyEvents [( "quit", QuitE )]
-
 -- | Key bindings
 keyBindings :: [(KeyEventID, [Binding])]
 keyBindings =