module Model.Ad
  ( Ad(..)
  , getNewAds
  ) where

import           Data.List ((\\))
import           Data.Text (Text)

import           Model.URL (URL)

data Ad = Ad
  { name     :: Text
  , location :: Text
  , price    :: Maybe Text
  , url      :: URL
  } deriving (Eq, Read, Show)

getNewAds :: [URL] -> [Ad] -> ([URL], [Ad])
getNewAds viewdURLs ads =
  let newURLs = (map url ads) \\ viewdURLs
      newAds = filter (\ad -> elem (url ad) newURLs) ads
  in  (newURLs, newAds)