mirror of
https://github.com/jtdaugherty/brick.git
synced 2024-09-11 23:57:22 +03:00
CustomKeybindingDemo: comment
This commit is contained in:
parent
dc783e4126
commit
f6ec9233ab
@ -60,6 +60,8 @@ makeLenses ''St
|
||||
-- | Event handlers for the our KeyEvents.
|
||||
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.
|
||||
[ K.onEvent QuitEvent "Quit the program"
|
||||
M.halt
|
||||
, K.onEvent IncrementEvent "Increment the counter" $
|
||||
|
Loading…
Reference in New Issue
Block a user