From 5977e1454d7738ddb086d37b20337e350e380790 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sat, 11 Apr 2015 11:50:48 +0200
Subject: Fetch first page ads of a given leboncoin url, fetch also the
 description page of each item.

---
 src/Main.hs | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 src/Main.hs

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
new file mode 100644
index 0000000..f352a43
--- /dev/null
+++ b/src/Main.hs
@@ -0,0 +1,27 @@
+module Main
+  ( main
+  ) where
+
+import Data.List (intersperse)
+
+import Ad (getAds)
+
+import Model.Ad
+
+import View.Ad (renderAd)
+
+import Page
+import Parser.Detail
+
+url :: String
+url = "http://www.leboncoin.fr/annonces/offres/corse/"
+
+main :: IO ()
+main = do
+  eitherAds <- getAds url
+  case eitherAds of
+    Left error ->
+      putStrLn error
+    Right ads -> do
+      writeFile "result.html" (concat . intersperse "\n\n" . map renderAd $ ads)
+      putStrLn "Done!"
-- 
cgit v1.2.3