aboutsummaryrefslogtreecommitdiff
path: root/src/server/Conf.hs
blob: 14da50f1df143e529a4bd6527721d98d560cdcc2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
{-# LANGUAGE OverloadedStrings #-}

module Conf
  ( getConf
  , Conf(..)
  ) where

import Data.Text (Text)
import qualified Data.ConfigManager as Conf
import Data.Time.Clock (NominalDiffTime)

data Conf = Conf
  { hostname :: Text
  , port :: Int
  , signInExpiration :: NominalDiffTime
  , currency :: Text
  , noReplyMail :: Text
  } deriving 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 "signInExpiration" conf <*>
      Conf.lookup "currency" conf <*>
      Conf.lookup "noReplyMail" conf
  )