diff options
author | Joris | 2016-03-20 22:38:44 +0100 |
---|---|---|
committer | Joris | 2016-03-21 20:43:55 +0100 |
commit | 1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257 (patch) | |
tree | 4ff8aeb6aa0f159548f8f506374276c1a2c97f7d /src/server/Conf.hs | |
parent | 47104f0b3965cd1dfba0f466afdb5e8983dc7bec (diff) |
use config-manager instead of ConfigFile
Diffstat (limited to 'src/server/Conf.hs')
-rw-r--r-- | src/server/Conf.hs | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/src/server/Conf.hs b/src/server/Conf.hs new file mode 100644 index 0000000..f66eb5e --- /dev/null +++ b/src/server/Conf.hs @@ -0,0 +1,27 @@ +{-# LANGUAGE OverloadedStrings #-} + +module Conf + ( getConf + , Conf(..) + ) where + +import Data.Text (Text) +import qualified Data.ConfigManager as Conf + +data Conf = Conf + { hostname :: Text + , port :: Int + , signInExpirationMn :: Int + , currency :: Text + } deriving (Read, Eq, Show) + +getConf :: FilePath -> IO (Either Text Conf) +getConf path = + (flip fmap) (Conf.readConfig path) (\configOrError -> do + conf <- configOrError + Conf <$> + Conf.lookup "hostname" conf <*> + Conf.lookup "port" conf <*> + Conf.lookup "signInExpirationMn" conf <*> + Conf.lookup "currency" conf + ) |