add missing Input.Terminfo file
commitffe6de20d3ab43a5781c873efd4f0990c2e4377f
authorCorey O'Connor <corey@ooyala.com>
dateFri 25 Oct 2013, 13:11 (13 years ago)
parentf6d25d6
src/Graphics/Vty/Input/Terminfo.hsnew file+10
@@ -0,0 +1,10 @@
1+module Graphics.Vty.Input.Terminfo where
2+
3+import Graphics.Vty.Input.Data
4+import Graphics.Vty.Input.Internal
5+
6+import System.Console.Terminfo
7+
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)