ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-11-29 08:49:40 +03:00
Code Issues Projects Releases Wiki Activity

use head over !!0

Browse Source
This commit is contained in:
Willem Van Onsem 2021-02-17 23:38:49 +01:00
parent e886dc0f83
commit a803a2ad72
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Graphics/Vty/Input/Terminfo/ANSIVT.hs
View File

@ -59,7 +59,7 @@ navKeys3 =
-- This encoding depends on the terminal.
functionKeys1 :: ClassifyMap
functionKeys1 =
let f ff nrs m = [ ("\ESC["++show n++"~",EvKey (KFun $ n-(nrs!!0)+ff) m) | n <- nrs ] in
let f ff nrs m = [ ("\ESC["++show n++"~",EvKey (KFun $ n-head nrs+ff) m) | n <- nrs ] in
concat [f 1 [25,26] [MShift], f 3 [28,29] [MShift], f 5 [31..34] [MShift] ]
-- | encoding for meta plus char