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

Merge pull request #213 from hapytex/hlint/use-head

Browse Source 
Use head over !!0
This commit is contained in:
Jonathan Daugherty 2021-02-17 14:40:57 -08:00 committed by GitHub
commit 2a881950de
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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