Handle a configuration file to save the url

1 files changed, 6 insertions, 4 deletions

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)