ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-12-02 08:53:43 +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 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.Applicative hiding (many)
import Control.Exception (tryJust, catch, IOException) import Control.Exception (tryJust, catch, IOException)
@ -43,7 +46,6 @@ import Control.Monad.Trans.Writer
import qualified Data.ByteString as BS import qualified Data.ByteString as BS
import Data.Default import Data.Default
import Data.Either (either)
import Data.Monoid import Data.Monoid
import Graphics.Vty.Input.Events import Graphics.Vty.Input.Events
@ -97,7 +99,7 @@ userConfig = do
parseConfigFile :: FilePath -> IO Config parseConfigFile :: FilePath -> IO Config
parseConfigFile path = do parseConfigFile path = do
catch (runParseConfig path <$> BS.readFile path) catch (runParseConfig path <$> BS.readFile path)
(\(e :: IOException) -> return def) (\(_ :: IOException) -> return def)
runParseConfig :: Stream s (Writer Config) Char => String -> s -> Config runParseConfig :: Stream s (Writer Config) Char => String -> s -> Config
runParseConfig name = execWriter . runParserT parseConfig () name runParseConfig name = execWriter . runParserT parseConfig () name