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/Resume.hs | 31 -------------------------------
 1 file changed, 31 deletions(-)
 delete mode 100644 src/Parser/Resume.hs

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

diff --git a/src/Parser/Resume.hs b/src/Parser/Resume.hs
deleted file mode 100644
index 8940be7..0000000
--- a/src/Parser/Resume.hs
+++ /dev/null
@@ -1,31 +0,0 @@
-module Parser.Resume
-  ( parse
-  ) where
-
-import Data.Maybe (catMaybes, isJust)
-import Data.List (find)
-import Data.Text (Text)
-import qualified Data.Text as T
-
-import Text.HTML.TagSoup
-
-import Model.Resume (Resume(Resume))
-
-import Parser.Utils
-
-parse :: Text -> [Resume]
-parse page =
-  case dropWhile (not . hasClass (T.pack "section") (T.pack "tabsContent")) (parseTags page) of
-    [] ->
-      []
-    sectionTags ->
-      let lbcTags = takeWhile (not . hasClass (T.pack "div") (T.pack "information-immo")) sectionTags
-      in  catMaybes . fmap parseResume $ partitions (~== "<a>") lbcTags
-
-parseResume :: [Tag Text] -> Maybe Resume
-parseResume item = do
-  name <- getTagTextAfter "<h2 class=item_title>" item
-  let price = getTagTextAfter "<h3 class=item_price>" item
-  url <- getTagAttribute "<a>" (T.pack "href") item
-  let isPro = isJust . find (~== "<span class=ispro>") $ item
-  return (Resume name price (T.concat [T.pack "https:", url]) isPro)
-- 
cgit v1.2.3