diff options
| author | Joris | 2016-03-26 12:44:27 +0100 |
|---|---|---|
| committer | Joris | 2016-03-26 12:44:27 +0100 |
| commit | 59c694b0e81deb30ec4e50d5d142b5eda645a27e (patch) | |
| tree | 175850ddfe9ace1f50ab6ec11edff094b27da339 /src/server/Conf.hs | |
| parent | a11ad41b52ed3682d33382f2a378bf3294d688b2 (diff) | |
| download | budget-59c694b0e81deb30ec4e50d5d142b5eda645a27e.tar.gz budget-59c694b0e81deb30ec4e50d5d142b5eda645a27e.tar.bz2 budget-59c694b0e81deb30ec4e50d5d142b5eda645a27e.zip | |
Move no-reply mail from messages to conf
Diffstat (limited to 'src/server/Conf.hs')
| -rw-r--r-- | src/server/Conf.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/server/Conf.hs b/src/server/Conf.hs index f66eb5e..2269cf2 100644 --- a/src/server/Conf.hs +++ b/src/server/Conf.hs @@ -13,6 +13,7 @@ data Conf = Conf , port :: Int , signInExpirationMn :: Int , currency :: Text + , noReplyMail :: Text } deriving (Read, Eq, Show) getConf :: FilePath -> IO (Either Text Conf) @@ -23,5 +24,6 @@ getConf path = Conf.lookup "hostname" conf <*> Conf.lookup "port" conf <*> Conf.lookup "signInExpirationMn" conf <*> - Conf.lookup "currency" conf + Conf.lookup "currency" conf <*> + Conf.lookup "noReplyMail" conf ) |