From d3dd0e129658e3617f9e6e4fa0910cb15c42520d Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Tue, 14 Apr 2015 00:10:21 +0200
Subject: Send mail to notify for new ads

---
 src/Config.hs | 25 +++++++++++++++++++------
 1 file changed, 19 insertions(+), 6 deletions(-)

(limited to 'src/Config.hs')

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
-- 
cgit v1.2.3