more on config

src/Graphics/Vty/Config.hs

@@ -8,17 +8,23 @@ module Graphics.Vty.Config where
 
 import Data.Default
 
+import Graphics.Vty.Input.Events
+
 import System.FilePath
 
 data Config = Config
     { singleEscPeriod   :: Int            -- ^ AKA VTIME. The default is 100000 microseconds or 0.1 seconds.
     -- | Debug information about the input process is appended to the file.
     , debugInputLog     :: Maybe FilePath
+    , inputOverrides    :: ClassifyTable
     } deriving (Show, Eq)
 
 instance Default Config where
     def = Config
         { singleEscPeriod = 100000
         , debugInputLog = Nothing
+        , inputOverrides = []
         }
 
+parseConfigFile :: FilePath -> IO Config
+parseConfigFile path = return def

src/Graphics/Vty/Input/Terminfo.hs

@@ -70,9 +70,6 @@ classifyTableForTerm termName term =
 classifyTableUserOverrides :: IO ClassifyTable
 classifyTableUserOverrides = return []
 
-parseOverrideFile :: FilePath -> IO ClassifyTable
-parseOverrideFile _ = return []
-
 -- | key table assumed to be applicable to all terminals.
 universalTable :: ClassifyTable
 universalTable = concat [visibleChars, ctrlChars, ctrlMetaChars, specialSupportKeys]