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

use a GHC 7.4 compatible System.Environment API

Browse Source
This commit is contained in:
Corey O'Connor 2014-04-25 19:01:27 -07:00
parent de6af31ee6
commit 279cc661ff
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -36,19 +36,22 @@ module Graphics.Vty.Config where
import Control.Applicative hiding (many)
import Control.Exception (catch, IOException)
import Control.Monad (void)
import Control.Exception (tryJust, catch, IOException)
import Control.Monad (void, guard)
import Control.Monad.Trans.Class
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
import System.Directory (getAppUserDataDirectory)
import System.Environment (lookupEnv)
import System.Environment (getEnv)
import System.IO.Error (isDoesNotExistError)
import Text.Parsec hiding ((<|>))
import Text.Parsec.Token ( GenLanguageDef(..) )
import qualified Text.Parsec.Token as P
@ -87,7 +90,8 @@ type ConfigParser s a = ParsecT s () (Writer Config) a
userConfig :: IO Config
userConfig = do
vtyConfig <- (mappend <$> getAppUserDataDirectory "vty" <*> pure "/config") >>= parseConfigFile
overrideConfig <- lookupEnv "VTY_CONFIG_FILE" >>= maybe (return def) parseConfigFile
overridePath <- tryJust (guard . isDoesNotExistError) $ getEnv "VTY_CONFIG_FILE"
overrideConfig <- either (const $ return def) parseConfigFile overridePath
return $ vtyConfig `mappend` overrideConfig
parseConfigFile :: FilePath -> IO Config