From 149a0470b73781022e584aaeaa7ce871d6f4173b Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 19 Jun 2018 22:49:16 +0200
Subject: Add automatic tests on remote pages

---
 src/lib/haskell/Model/Ad.hs | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 src/lib/haskell/Model/Ad.hs

(limited to 'src/lib/haskell/Model/Ad.hs')

diff --git a/src/lib/haskell/Model/Ad.hs b/src/lib/haskell/Model/Ad.hs
new file mode 100644
index 0000000..06906eb
--- /dev/null
+++ b/src/lib/haskell/Model/Ad.hs
@@ -0,0 +1,22 @@
+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)
-- 
cgit v1.2.3