ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-11-30 02:13:36 +03:00
Code Issues Projects Releases Wiki Activity

adjust imports to satisfy GHC 7.4 and above

Browse Source
This commit is contained in:
Corey O'Connor 2014-04-26 10:05:25 -07:00
parent 279cc661ff
commit d65b85c4cd
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Graphics/Vty/Config.hs
View File

@ -34,6 +34,9 @@
--
module Graphics.Vty.Config where
-- ignore warning on GHC 7.6+. Required for GHC 7.4
import Prelude hiding (catch)
import Control.Applicative hiding (many)
import Control.Exception (tryJust, catch, IOException)
@ -43,7 +46,6 @@ import Control.Monad.Trans.Writer
import qualified Data.ByteString as BS
import Data.Default
import Data.Either (either)
import Data.Monoid
import Graphics.Vty.Input.Events
@ -97,7 +99,7 @@ userConfig = do
parseConfigFile :: FilePath -> IO Config
parseConfigFile path = do
catch (runParseConfig path <$> BS.readFile path)
(\(e :: IOException) -> return def)
(\(_ :: IOException) -> return def)
runParseConfig :: Stream s (Writer Config) Char => String -> s -> Config
runParseConfig name = execWriter . runParserT parseConfig () name