diff options
Diffstat (limited to 'src/Model')
| -rw-r--r-- | src/Model/Resume.hs | 5 |
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 |