diff options
| author | Joris Guyonvarch | 2015-04-11 14:06:14 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-04-11 14:06:14 +0200 |
| commit | 9f389a05cc883213327b8d17db6d23c3ff8fb4e1 (patch) | |
| tree | 36185d54d0695be0c812e7917ac5e919a3e8d045 /src/Parser/Detail.hs | |
| parent | 2f90280ae5059833b5e533e823b1c01338990cb1 (diff) | |
| download | ad-listener-9f389a05cc883213327b8d17db6d23c3ff8fb4e1.tar.gz ad-listener-9f389a05cc883213327b8d17db6d23c3ff8fb4e1.tar.bz2 ad-listener-9f389a05cc883213327b8d17db6d23c3ff8fb4e1.zip | |
Set up a listener that diff new ads and show only the new ones
Diffstat (limited to 'src/Parser/Detail.hs')
| -rw-r--r-- | src/Parser/Detail.hs | 7 |
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 } |