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:10:33 -07:00
parent 6bc22b87d7
commit a768c6600d
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
programs/CustomKeybindingDemo.hs
View File

@ -90,9 +90,7 @@ appEvent _ =
drawUi :: St -> [Widget ()]
drawUi st = [body]
where
binding = do
(k, mods) <- st^.lastKey
return $ K.binding k mods
binding = uncurry K.binding <$> st^.lastKey
keybindingHelp = K.keybindingHelpWidget (st^.keyConfig) handlers
status = hLimit 40 $
padRight Max $