diff options
| author | Joris Guyonvarch | 2015-04-19 13:33:40 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-04-19 13:33:46 +0200 |
| commit | 5709f552ddb71c082db9a202f76215cdd3a6a3ec (patch) | |
| tree | 4ee3b04669d547f518e7ca819b46bd070b5045d8 /src/Config.hs | |
| parent | d183a8bf367135418d298fec8e060a3adb966e86 (diff) | |
| download | ad-listener-5709f552ddb71c082db9a202f76215cdd3a6a3ec.tar.gz ad-listener-5709f552ddb71c082db9a202f76215cdd3a6a3ec.tar.bz2 ad-listener-5709f552ddb71c082db9a202f76215cdd3a6a3ec.zip | |
Removing waitInMinutes from the configuration
Diffstat (limited to 'src/Config.hs')
| -rw-r--r-- | src/Config.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/src/Config.hs b/src/Config.hs index e4b2bc6..39ff185 100644 --- a/src/Config.hs +++ b/src/Config.hs @@ -36,7 +36,6 @@ configUsage = , " - url (required)" , " - mailTo (optional)" , " - properties (optional)" - , " - waitInMinutes (optional, default to 1)" , "" , " Example:" , "" @@ -50,9 +49,6 @@ configUsage = , "" , " # The properties field is an optional list" , " # properties = cp, city, surface, ges" - , "" - , " # The waitInMinutes field is an optional integer, default to 1" - , " # waitInMinutes = 60" ] configPath :: FilePath @@ -86,7 +82,6 @@ configFromMap map = do { url = url , mailTo = fieldValues "mailTo" map , properties = fieldValues "properties" map - , waitInMinutes = fromMaybe 1 $ M.lookup "waitInMinutes" map >>= fmap fst . eitherToMaybe . decimal } return config |