diff options
author | Joris | 2016-03-31 18:45:36 +0200 |
---|---|---|
committer | Joris | 2016-03-31 18:46:23 +0200 |
commit | 01e4ce0fa7c369996ec4ef3a033d16d6fa0eb715 (patch) | |
tree | 5a81013be23c3f368fc7e6e1a0a41008a269d0fc /src/server/Conf.hs | |
parent | 84f53fac431df20afd54817cca14260f1202e9ff (diff) | |
download | budget-01e4ce0fa7c369996ec4ef3a033d16d6fa0eb715.tar.gz budget-01e4ce0fa7c369996ec4ef3a033d16d6fa0eb715.tar.bz2 budget-01e4ce0fa7c369996ec4ef3a033d16d6fa0eb715.zip |
Use https link and secure cookie when activated
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 14da50f..13d5981 100644 --- a/src/server/Conf.hs +++ b/src/server/Conf.hs @@ -15,6 +15,7 @@ data Conf = Conf , signInExpiration :: NominalDiffTime , currency :: Text , noReplyMail :: Text + , https :: Bool } deriving Show getConf :: FilePath -> IO (Either Text Conf) @@ -26,5 +27,6 @@ getConf path = Conf.lookup "port" conf <*> Conf.lookup "signInExpiration" conf <*> Conf.lookup "currency" conf <*> - Conf.lookup "noReplyMail" conf + Conf.lookup "noReplyMail" conf <*> + Conf.lookup "https" conf ) |