git.iko.soy/vty
on ffe6de2 help sign in
vty/src/Graphics/Vty/Input/Terminfo.hs
10 lines 362 B history raw
1module Graphics.Vty.Input.Terminfo where
3import Graphics.Vty.Input.Data
4import Graphics.Vty.Input.Internal
6import System.Console.Terminfo
8caps_classify_table :: Terminal -> [(String,Event)] -> [(String,Event)]
9caps_classify_table terminal table = [(x,y) | (Just x,y) <- map extract_cap table]
10 where extract_cap = first (getCapability terminal . tiGetStr)