From 10a9aa9391ac2995527557d9d808693b57236603 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sun, 12 Apr 2015 22:46:56 +0200
Subject: Ignore lines beginning with # in the configuration file

---
 src/Ad.hs | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'src/Ad.hs')

diff --git a/src/Ad.hs b/src/Ad.hs
index 7bc66fc..4be47f4 100644
--- a/src/Ad.hs
+++ b/src/Ad.hs
@@ -1,6 +1,6 @@
 module Ad
-  ( getResumes
-  , getAds
+  ( fetchResumes
+  , fetchAds
   ) where
 
 import Data.Text (Text)
@@ -16,15 +16,15 @@ import Model.URL
 import Parser.Resume
 import Parser.Detail
 
-getResumes :: URL -> IO (Either Text [Resume])
-getResumes url = fmap parseResumes <$> getPage url
+fetchResumes :: URL -> IO (Either Text [Resume])
+fetchResumes url = fmap parseResumes <$> getPage url
 
-getAds :: [Resume] -> IO (Either Text [Ad])
-getAds resumes = do
-  xs <- sequence $ map getAd resumes
+fetchAds :: [Resume] -> IO (Either Text [Ad])
+fetchAds resumes = do
+  xs <- sequence $ map fetchAd resumes
   return $ sequence xs
 
-getAd :: Resume -> IO (Either Text Ad)
-getAd resume = do
+fetchAd :: Resume -> IO (Either Text Ad)
+fetchAd resume = do
   page <- getPage (url resume)
   fmap (\page -> Ad { resume = resume, detail = parseDetail page}) <$> getPage (url resume)
-- 
cgit v1.2.3