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

(limited to 'src/Fetch.hs')

diff --git a/src/Fetch.hs b/src/Fetch.hs
deleted file mode 100644
index 5d14de4..0000000
--- a/src/Fetch.hs
+++ /dev/null
@@ -1,34 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module Fetch
-  ( resumes
-  , ads
-  ) where
-
-import Data.Text (Text)
-import qualified Data.Text.IO as T
-import Data.Either (rights)
-
-import Page
-
-import Model.Ad (Ad(Ad))
-import Model.Resume (Resume)
-import qualified Model.Resume as Resume
-import Model.URL (URL)
-
-import qualified Parser.Resume as Resume
-import qualified Parser.Detail as Detail
-
-resumes :: [URL] -> IO [Resume]
-resumes urls = do
-  results <- fmap (concat . map Resume.parse . rights) . sequence . map Page.get $ urls
-  if null results
-    then T.putStrLn "Parsed 0 results!"
-    else return ()
-  return results
-
-ads :: [Resume] -> IO (Either Text [Ad])
-ads = fmap sequence . sequence . map ad
-
-ad :: Resume -> IO (Either Text Ad)
-ad resume = fmap (\x -> Ad resume (Detail.parse x)) <$> Page.get (Resume.url resume)
-- 
cgit v1.2.3