diff options
Diffstat (limited to 'src/Parser')
-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 } |