@@ -0,0 +1,10 @@
1+module Graphics.Vty.Input.Terminfo where
3+import Graphics.Vty.Input.Data
4+import Graphics.Vty.Input.Internal
6+import System.Console.Terminfo
8+caps_classify_table :: Terminal -> [(String,Event)] -> [(String,Event)]
9+caps_classify_table terminal table = [(x,y) | (Just x,y) <- map extract_cap table]
10+ where extract_cap = first (getCapability terminal . tiGetStr)