From 9f389a05cc883213327b8d17db6d23c3ff8fb4e1 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sat, 11 Apr 2015 14:06:14 +0200
Subject: Set up a listener that diff new ads and show only the new ones

---
 src/Parser/Detail.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/Parser')

diff --git a/src/Parser/Detail.hs b/src/Parser/Detail.hs
index 031d740..ab1b0ca 100644
--- a/src/Parser/Detail.hs
+++ b/src/Parser/Detail.hs
@@ -8,7 +8,8 @@ import Model.Detail
 
 import Parser.Utils
 
-parseDetail :: [Tag String] -> Detail
-parseDetail tags =
-  let description = getTagText "<div class=content>" tags
+parseDetail :: String -> Detail
+parseDetail page =
+  let tags = parseTags page
+      description = getTagText "<div class=content>" tags
   in  Detail { description = description }
-- 
cgit v1.2.3