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/parser/haskell/Model/Ad.hs | 22 ----------------------
 1 file changed, 22 deletions(-)
 delete mode 100644 src/parser/haskell/Model/Ad.hs

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

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