diff options
| author | Joris Guyonvarch | 2015-04-14 00:28:46 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-04-14 00:28:46 +0200 |
| commit | 6fb59397a495fd4e46b794f1be381df7c007ec89 (patch) | |
| tree | 798766aadc191a7009b7c7cc746c4a83cd60ddf8 /src | |
| parent | 280f030f652da4abb60c89845f5739ef2e3823bc (diff) | |
| download | ad-listener-6fb59397a495fd4e46b794f1be381df7c007ec89.tar.gz ad-listener-6fb59397a495fd4e46b794f1be381df7c007ec89.tar.bz2 ad-listener-6fb59397a495fd4e46b794f1be381df7c007ec89.zip | |
Strip mail addresses in the configuration file
Diffstat (limited to 'src')
| -rw-r--r-- | src/Config.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |