From 6fb59397a495fd4e46b794f1be381df7c007ec89 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Tue, 14 Apr 2015 00:28:46 +0200
Subject: Strip mail addresses in the configuration file

---
 src/Config.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Config.hs b/src/Config.hs
index 88eeb1b..76371be 100644
--- a/src/Config.hs
+++ b/src/Config.hs
@@ -74,7 +74,7 @@ configFromFile =
 configFromMap :: Map Text Text -> Maybe Config
 configFromMap map = do
   url <- M.lookup "url" map
-  let mailTo = T.splitOn "," <$> M.lookup "mailTo" map
+  let mailTo = fmap T.strip . T.splitOn "," <$> M.lookup "mailTo" map
   return $ Config { url = url, mailTo = mailTo }
 
 lineConfig :: Text -> Maybe (Text, Text)
-- 
cgit v1.2.3