aboutsummaryrefslogtreecommitdiff
path: root/src/Model/Resume.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Model/Resume.hs')
-rw-r--r--src/Model/Resume.hs26
1 files changed, 0 insertions, 26 deletions
diff --git a/src/Model/Resume.hs b/src/Model/Resume.hs
deleted file mode 100644
index 59f6698..0000000
--- a/src/Model/Resume.hs
+++ /dev/null
@@ -1,26 +0,0 @@
-module Model.Resume
- ( Resume(..)
- , getNewResumes
- , getURLs
- ) where
-
-import Data.List ((\\))
-import Data.Text (Text)
-
-import Model.URL (URL)
-
-data Resume = Resume
- { name :: Text
- , price :: Maybe Text
- , url :: URL
- , isPro :: Bool
- } deriving (Eq, Read, Show)
-
-getNewResumes :: [URL] -> [Resume] -> ([URL], [Resume])
-getNewResumes viewdURLs resumes =
- let newURLs = (getURLs resumes) \\ viewdURLs
- newResumes = filter (\resume -> elem (url resume) newURLs) resumes
- in (newURLs, newResumes)
-
-getURLs :: [Resume] -> [URL]
-getURLs = map url