aboutsummaryrefslogtreecommitdiff
path: root/src/Parser/Detail.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Parser/Detail.hs')
-rw-r--r--src/Parser/Detail.hs7
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 }