diff options
author | Joris Guyonvarch | 2015-04-14 00:10:21 +0200 |
---|---|---|
committer | Joris Guyonvarch | 2015-04-14 00:12:04 +0200 |
commit | d3dd0e129658e3617f9e6e4fa0910cb15c42520d (patch) | |
tree | 7eed51e2f4dd9c599daa1d9728a6ca8c86e3897e /src/Config.hs | |
parent | a2c9ca0ee7022981fa563ed867e85cdeae3b1590 (diff) | |
download | ad-listener-d3dd0e129658e3617f9e6e4fa0910cb15c42520d.tar.gz ad-listener-d3dd0e129658e3617f9e6e4fa0910cb15c42520d.tar.bz2 ad-listener-d3dd0e129658e3617f9e6e4fa0910cb15c42520d.zip |
Send mail to notify for new ads
Diffstat (limited to 'src/Config.hs')
-rw-r--r-- | src/Config.hs | 25 |
1 files changed, 19 insertions, 6 deletions
diff --git a/src/Config.hs b/src/Config.hs index 7a44ec0..88eeb1b 100644 --- a/src/Config.hs +++ b/src/Config.hs @@ -23,13 +23,24 @@ import Utils.Text configUsage :: Text configUsage = - T.intercalate - "\n" - [ T.concat - [ "Please provide an url for leboncoin in the file named: " + T.intercalate "\n" + [ "" + , T.concat + [ " Some information is required in the file `" , T.pack configPath + , "`:" ] - , "url = http://…" + , "" + , " - url (required)" + , " - mailTo (optional)" + , "" + , " Example:" + , "" + , " # The url field is required" + , " url = http://www.leboncoin.fr/locations/offres/ile_de_france/?f=a&th=1" + , "" + , " # The mailTo field is an optional list" + , " # mailTo = jean.dupont@mail.fr, john.smith@mail.com" ] configPath :: FilePath @@ -37,6 +48,7 @@ configPath = "conf" data Config = Config { url :: URL + , mailTo :: Maybe [Text] } deriving (Eq, Read, Show) getConfig :: IO (Maybe Config) @@ -62,7 +74,8 @@ configFromFile = configFromMap :: Map Text Text -> Maybe Config configFromMap map = do url <- M.lookup "url" map - return $ Config { url = url } + let mailTo = T.splitOn "," <$> M.lookup "mailTo" map + return $ Config { url = url, mailTo = mailTo } lineConfig :: Text -> Maybe (Text, Text) lineConfig line = do |