jlamothe/abacus
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removed unnecessary KeyEvents definition

This commit is contained in:
Jonathan Lamothe 2024-08-22 16:20:34 -04:00
parent 014ca39103
commit 84415db96a
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Abacus/App/Events.hs
View File

@ -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 =