mirror of
https://github.com/jtdaugherty/brick.git
synced 2024-09-11 23:57:22 +03:00
CustomKeybindingDemo: nit
This commit is contained in:
parent
4225f813a2
commit
6c0fb8da24
@ -60,8 +60,9 @@ makeLenses ''St
|
||||
-- | Key event handlers for our application.
|
||||
handlers :: [K.KeyEventHandler KeyEvent (T.EventM () St)]
|
||||
handlers =
|
||||
-- The first three handlers are triggered by keys mapped to events,
|
||||
-- thus decoupling the configured key bindings from these handlers.
|
||||
-- The first three handlers are triggered by keys mapped to abstract
|
||||
-- events, thus decoupling the configured key bindings from these
|
||||
-- handlers.
|
||||
[ K.onEvent QuitEvent "Quit the program"
|
||||
M.halt
|
||||
, K.onEvent IncrementEvent "Increment the counter" $
|
||||
|
Loading…
Reference in New Issue
Block a user