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

newKeyConfig: use a more natural argument ordering

Browse Source
This commit is contained in:
Jonathan Daugherty 2022-08-01 11:34:59 -07:00
parent 5f35cd0e3e
commit 57679a8f71
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Brick/Keybindings/KeyConfig.hs
View File

@ -91,17 +91,17 @@ data KeyConfig e =
newKeyConfig :: (Ord e)
=> KeyEvents e
-- ^ The base mapping of key events to use
-- ^ The base mapping of key events and names to use.
-> [(e, [Binding])]
-- ^ Default bindings by key event, such as from a
-- configuration file or embedded code
-> [(e, BindingState)]
-- ^ Custom bindings by key event, such as from a
-- configuration file. Explicitly setting an event to
-- 'Unbound' here has the effect of disabling its default
-- bindings.
-> [(e, [Binding])]
-- ^ Default bindings by key event, such as from a
-- configuration file or embedded code
-> KeyConfig e
newKeyConfig evs bindings defaults =
newKeyConfig evs defaults bindings =
KeyConfig { keyConfigBindingMap = M.fromList bindings
, keyConfigEvents = evs
, keyConfigDefaultBindings = M.fromList defaults