From 0a4d3c8f12dc5797a919a00b6bcaf759947687cc Mon Sep 17 00:00:00 2001 From: Joris Date: Sun, 17 Jun 2018 23:24:47 +0200 Subject: Add ouest france parser --- src/Parser/Detail.hs | 63 ---------------------------------------------------- 1 file changed, 63 deletions(-) delete mode 100644 src/Parser/Detail.hs (limited to 'src/Parser/Detail.hs') diff --git a/src/Parser/Detail.hs b/src/Parser/Detail.hs deleted file mode 100644 index 2418d07..0000000 --- a/src/Parser/Detail.hs +++ /dev/null @@ -1,63 +0,0 @@ -module Parser.Detail - ( parse - ) where - -import Data.Text (Text) -import qualified Data.Text as T - -import Data.Map (Map) -import qualified Data.Map as M - -import Data.Maybe (catMaybes, fromMaybe) - -import Text.HTML.TagSoup - -import Model.Detail - -import Parser.Utils - -parse :: Text -> Detail -parse page = - let tags = parseTags page - in Detail - { description = parseDescription tags - , images = map (\url -> T.concat [T.pack "https:", url]) $ getTagAttributes "" (T.pack "content") tags - , properties = parseProperties tags - } - -parseDescription :: [Tag Text] -> Maybe Text -parseDescription tags = - let descriptionTags = getTagsBetween "
" "
" tags - in if null descriptionTags - then - Nothing - else - let replaceBr = map (\tag -> if tag ~== "