From 59c694b0e81deb30ec4e50d5d142b5eda645a27e Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 26 Mar 2016 12:44:27 +0100
Subject: Move no-reply mail from messages to conf

---
 src/server/Conf.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/server/Conf.hs')

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
   )
-- 
cgit v1.2.3