From aafc45eb5eed3839a5210a7d48928d975df6a296 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sat, 11 Apr 2015 20:38:08 +0200
Subject: Handle a configuration file to save the url

---
 src/Ad.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'src/Ad.hs')

diff --git a/src/Ad.hs b/src/Ad.hs
index 5f3a9f1..7bc66fc 100644
--- a/src/Ad.hs
+++ b/src/Ad.hs
@@ -3,9 +3,11 @@ module Ad
   , getAds
   ) where
 
-import Page (getPage)
+import Data.Text (Text)
 import qualified Data.Text as T
 
+import Page (getPage)
+
 import Model.Ad
 import Model.Resume
 import Model.Detail
@@ -14,15 +16,15 @@ import Model.URL
 import Parser.Resume
 import Parser.Detail
 
-getResumes :: URL -> IO (Either T.Text [Resume])
+getResumes :: URL -> IO (Either Text [Resume])
 getResumes url = fmap parseResumes <$> getPage url
 
-getAds :: [Resume] -> IO (Either T.Text [Ad])
+getAds :: [Resume] -> IO (Either Text [Ad])
 getAds resumes = do
   xs <- sequence $ map getAd resumes
   return $ sequence xs
 
-getAd :: Resume -> IO (Either T.Text Ad)
+getAd :: Resume -> IO (Either Text Ad)
 getAd resume = do
   page <- getPage (url resume)
   fmap (\page -> Ad { resume = resume, detail = parseDetail page}) <$> getPage (url resume)
-- 
cgit v1.2.3