From b846aa65f8f21189f39236f88908267167004a35 Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 14 Jul 2016 15:47:33 +0200
Subject: Add isPro info

---
 src/Parser/Resume.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/Parser')

diff --git a/src/Parser/Resume.hs b/src/Parser/Resume.hs
index f300ec3..8940be7 100644
--- a/src/Parser/Resume.hs
+++ b/src/Parser/Resume.hs
@@ -2,7 +2,8 @@ module Parser.Resume
   ( parse
   ) where
 
-import Data.Maybe (catMaybes)
+import Data.Maybe (catMaybes, isJust)
+import Data.List (find)
 import Data.Text (Text)
 import qualified Data.Text as T
 
@@ -26,4 +27,5 @@ 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
-  return (Resume name price (T.concat [T.pack "https:", url]))
+  let isPro = isJust . find (~== "<span class=ispro>") $ item
+  return (Resume name price (T.concat [T.pack "https:", url]) isPro)
-- 
cgit v1.2.3