From a2c9ca0ee7022981fa563ed867e85cdeae3b1590 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Mon, 13 Apr 2015 19:32:59 +0200
Subject: Renaming Ad.hs to Fetch.hs

---
 src/Ad.hs | 30 ------------------------------
 1 file changed, 30 deletions(-)
 delete mode 100644 src/Ad.hs

(limited to 'src/Ad.hs')

diff --git a/src/Ad.hs b/src/Ad.hs
deleted file mode 100644
index 4be47f4..0000000
--- a/src/Ad.hs
+++ /dev/null
@@ -1,30 +0,0 @@
-module Ad
-  ( fetchResumes
-  , fetchAds
-  ) where
-
-import Data.Text (Text)
-import qualified Data.Text as T
-
-import Page (getPage)
-
-import Model.Ad
-import Model.Resume
-import Model.Detail
-import Model.URL
-
-import Parser.Resume
-import Parser.Detail
-
-fetchResumes :: URL -> IO (Either Text [Resume])
-fetchResumes url = fmap parseResumes <$> getPage url
-
-fetchAds :: [Resume] -> IO (Either Text [Ad])
-fetchAds resumes = do
-  xs <- sequence $ map fetchAd resumes
-  return $ sequence xs
-
-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