blob: 6cd1d8a5b01617b38ed6c705bcbda5b05aaddd1e (
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
29
30
31
32
33
34
35
36
|
module Ad
( getAds
, getResumes
) where
import Page (getPage)
import Model.Ad
import Model.Resume
import Model.Detail
import Model.URL
import Parser.Resume
import Parser.Detail
getResumes :: URL -> IO (Either String [Resume])
getResumes url = fmap parseResumes <$> getPage url
getAds :: URL -> IO (Either String [Ad])
getAds url = do
eitherPage <- getPage url
case eitherPage of
Left error ->
return (Left error)
Right page ->
getAdsFromPage page
getAdsFromPage :: String -> IO (Either String [Ad])
getAdsFromPage page = do
xs <- sequence $ map getAd (parseResumes page)
return $ sequence xs
getAd :: Resume -> IO (Either String Ad)
getAd resume = do
page <- getPage (url resume)
fmap (\page -> Ad { resume = resume, detail = parseDetail page}) <$> getPage (url resume)
|