src/Ad.hs


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)