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 =