blob: 5f3a9f1e2213dba5063e719b8afce8ba4107ff16 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
module Ad
( getResumes
, getAds
) where
import Page (getPage)
import qualified Data.Text as T
import Model.Ad
import Model.Resume
import Model.Detail
import Model.URL
import Parser.Resume
import Parser.Detail
getResumes :: URL -> IO (Either T.Text [Resume])
getResumes url = fmap parseResumes <$> getPage url
getAds :: [Resume] -> IO (Either T.Text [Ad])
getAds resumes = do
xs <- sequence $ map getAd resumes
return $ sequence xs
getAd :: Resume -> IO (Either T.Text Ad)
getAd resume = do
page <- getPage (url resume)
fmap (\page -> Ad { resume = resume, detail = parseDetail page}) <$> getPage (url resume)
|