diff options
Diffstat (limited to 'src/server/Conf.hs')
| -rw-r--r-- | src/server/Conf.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/server/Conf.hs b/src/server/Conf.hs index 2269cf2..14da50f 100644 --- a/src/server/Conf.hs +++ b/src/server/Conf.hs @@ -7,14 +7,15 @@ module Conf import Data.Text (Text) import qualified Data.ConfigManager as Conf +import Data.Time.Clock (NominalDiffTime) data Conf = Conf { hostname :: Text , port :: Int - , signInExpirationMn :: Int + , signInExpiration :: NominalDiffTime , currency :: Text , noReplyMail :: Text - } deriving (Read, Eq, Show) + } deriving Show getConf :: FilePath -> IO (Either Text Conf) getConf path = @@ -23,7 +24,7 @@ getConf path = Conf <$> Conf.lookup "hostname" conf <*> Conf.lookup "port" conf <*> - Conf.lookup "signInExpirationMn" conf <*> + Conf.lookup "signInExpiration" conf <*> Conf.lookup "currency" conf <*> Conf.lookup "noReplyMail" conf ) |