@@ -8,17 +8,23 @@ module Graphics.Vty.Config where
88
99import Data.Default
1010
11+import Graphics.Vty.Input.Events
12+
1113import System.FilePath
1214
1315data Config = Config
1416 { singleEscPeriod :: Int -- ^ AKA VTIME. The default is 100000 microseconds or 0.1 seconds.
1517 -- | Debug information about the input process is appended to the file.
1618 , debugInputLog :: Maybe FilePath
19+ , inputOverrides :: ClassifyTable
1720 } deriving (Show, Eq)
1821
1922instance Default Config where
2023 def = Config
2124 { singleEscPeriod = 100000
2225 , debugInputLog = Nothing
26+ , inputOverrides = []
2327 }
2428
29+parseConfigFile :: FilePath -> IO Config
30+parseConfigFile path = return def