From 293fab1df23821b5f131603c4db56ab71681ce59 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sun, 12 Apr 2015 22:22:50 +0200
Subject: The listener will not show results at init step for now, only the new
 results

---
 src/Model/Resume.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Model/Resume.hs')

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
-- 
cgit v1.2.3