From 4ddd6d1f6df2bab75d42b6d45b816e92e7173529 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sat, 11 Apr 2015 19:20:04 +0200
Subject: Fixing parsing errors, and use Text from now

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

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

diff --git a/src/Model/Resume.hs b/src/Model/Resume.hs
index f4e9cd5..9d966df 100644
--- a/src/Model/Resume.hs
+++ b/src/Model/Resume.hs
@@ -5,20 +5,20 @@ module Model.Resume
   ) where
 
 import Data.List ((\\))
+import qualified Data.Text as T
 
 import Model.URL
 
 data Resume = Resume
-  { name :: String
-  , price :: Maybe String
+  { name :: T.Text
+  , price :: Maybe T.Text
   , url :: URL
   } deriving (Eq, Read, Show)
 
-getNewResumes :: [URL] -> [Resume] -> ([URL], [Resume])
+getNewResumes :: [URL] -> [Resume] -> [Resume]
 getNewResumes viewdURLs resumes =
   let newURLs = (getURLs resumes) \\ viewdURLs
-      newResumes = filter (\resume -> elem (url resume) newURLs) resumes
-  in  (viewdURLs ++ newURLs, newResumes)
+  in  filter (\resume -> elem (url resume) newURLs) resumes
 
 getURLs :: [Resume] -> [URL]
 getURLs = map url
-- 
cgit v1.2.3