jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-09-11 23:57:22 +03:00
Code Issues Projects Releases Wiki Activity

CustomKeybindingDemo: nit

Browse Source
This commit is contained in:
Jonathan Daugherty 2022-08-02 20:13:22 -07:00
parent 4225f813a2
commit 6c0fb8da24
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
programs/CustomKeybindingDemo.hs
View File

@ -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" $