blob: 0fa131c88db9211b4a0c8e65a8025eb4aa3703a1 (
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
|
module Ad
( getAds
) where
import Text.HTML.TagSoup (parseTags)
import Page (getPage)
import Model.Ad
import Model.Resume
import Model.Detail
import Parser.Resume
import Parser.Detail
getAds :: String -> 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 (parseTags page)}) <$> getPage (url resume)
|