@@ -34,6 +34,9 @@
3434--
3535module Graphics.Vty.Config where
3636
37+-- ignore warning on GHC 7.6+. Required for GHC 7.4
38+import Prelude hiding (catch)
39+
3740import Control.Applicative hiding (many)
3841
3942import Control.Exception (tryJust, catch, IOException)
@@ -43,7 +46,6 @@ import Control.Monad.Trans.Writer
4346
4447import qualified Data.ByteString as BS
4548import Data.Default
46−import Data.Either (either)
4749import Data.Monoid
4850
4951import Graphics.Vty.Input.Events
@@ -97,7 +99,7 @@ userConfig = do
9799parseConfigFile :: FilePath -> IO Config
98100parseConfigFile path = do
99101 catch (runParseConfig path <$> BS.readFile path)
100− (\(e :: IOException) -> return def)
102+ (\(_ :: IOException) -> return def)
101103
102104runParseConfig :: Stream s (Writer Config) Char => String -> s -> Config
103105runParseConfig name = execWriter . runParserT parseConfig () name