From 4ddd6d1f6df2bab75d42b6d45b816e92e7173529 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sat, 11 Apr 2015 19:20:04 +0200
Subject: Fixing parsing errors, and use Text from now

---
 src/Parser/Detail.hs | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'src/Parser/Detail.hs')

diff --git a/src/Parser/Detail.hs b/src/Parser/Detail.hs
index ab1b0ca..b787772 100644
--- a/src/Parser/Detail.hs
+++ b/src/Parser/Detail.hs
@@ -2,14 +2,23 @@ module Parser.Detail
   ( parseDetail
   ) where
 
+import qualified Data.Text as T
+
 import Text.HTML.TagSoup
 
 import Model.Detail
 
 import Parser.Utils
 
-parseDetail :: String -> Detail
+parseDetail :: T.Text -> Detail
 parseDetail page =
   let tags = parseTags page
-      description = getTagText "<div class=content>" tags
+      descriptionTags = getTagsBetween "<div itemprop=description>" "</div>" tags
+      description =
+        if null descriptionTags
+          then
+            Nothing
+          else
+            let replaceBr = map (\tag -> if tag ~== "<br>" then TagText (T.pack "\n") else tag)
+            in  Just . T.strip . renderTags . replaceBr $ descriptionTags
   in  Detail { description = description }
-- 
cgit v1.2.3