{-# LANGUAGE OverloadedStrings #-}

module Fetch
  ( fetchResumes
  , fetchAds
  ) where

import Data.Text (Text)
import qualified Data.Text.IO as T

import Page

import Model.Ad (Ad(Ad))
import Model.Resume (Resume)
import qualified Model.Resume as Resume
import Model.URL (URL)

import qualified Parser.Resume as Resume
import qualified Parser.Detail as Detail

fetchResumes :: URL -> IO (Either Text [Resume])
fetchResumes url = do
  resumes <- fmap Resume.parse <$> Page.get url
  if null resumes
    then T.putStrLn "Parsed 0 results!"
    else return ()
  return resumes

fetchAds :: [Resume] -> IO (Either Text [Ad])
fetchAds resumes = do
  xs <- sequence $ map fetchAd resumes
  return $ sequence xs

fetchAd :: Resume -> IO (Either Text Ad)
fetchAd resume = fmap (\ad -> Ad resume (Detail.parse ad)) <$> Page.get (Resume.url resume)