Set up a listener that diff new ads and show only the new ones

1 files changed, 4 insertions, 3 deletions

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 }