diff options
| author | Joris Guyonvarch | 2015-04-12 22:22:50 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-04-12 22:22:50 +0200 |
| commit | 293fab1df23821b5f131603c4db56ab71681ce59 (patch) | |
| tree | df4505f70339d907f497c6f2b7279e01742d8830 /src/Model/Resume.hs | |
| parent | 73a11fee2cddc9b31b607cf2b3a9313644b91032 (diff) | |
| download | ad-listener-293fab1df23821b5f131603c4db56ab71681ce59.tar.gz ad-listener-293fab1df23821b5f131603c4db56ab71681ce59.tar.bz2 ad-listener-293fab1df23821b5f131603c4db56ab71681ce59.zip | |
The listener will not show results at init step for now, only the new results
Diffstat (limited to 'src/Model/Resume.hs')
| -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 |