diff options
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 |