aboutsummaryrefslogtreecommitdiff
path: root/src/Model
diff options
context:
space:
mode:
Diffstat (limited to 'src/Model')
-rw-r--r--src/Model/Resume.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Model/Resume.hs b/src/Model/Resume.hs
index 3d307f2..46d07a1 100644
--- a/src/Model/Resume.hs
+++ b/src/Model/Resume.hs
@@ -16,10 +16,11 @@ data Resume = Resume
, url :: URL
} deriving (Eq, Read, Show)
-getNewResumes :: [URL] -> [Resume] -> [Resume]
+getNewResumes :: [URL] -> [Resume] -> ([URL], [Resume])
getNewResumes viewdURLs resumes =
let newURLs = (getURLs resumes) \\ viewdURLs
- in filter (\resume -> elem (url resume) newURLs) resumes
+ newResumes = filter (\resume -> elem (url resume) newURLs) resumes
+ in (newURLs, newResumes)
getURLs :: [Resume] -> [URL]
getURLs = map url