removed unnecessary KeyEvents
definition
This commit is contained in:
parent
014ca39103
commit
84415db96a
|
@ -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 =
|
||||
|
|
Loading…
Reference in New Issue
Block a user