From 389d979eb3eaa18beb8a6da9f4a03bdb6acc1722 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sat, 18 Apr 2015 21:59:22 +0200
Subject: Parsing utag_list from a detail page and showing the keys that are
 given in the configuration file

---
 src/Main.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index f38646b..82135a2 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -19,3 +19,15 @@ main = do
       listenToNewAds config
     Nothing ->
       T.putStrLn C.configUsage
+
+-- import Page
+-- import Parser.Detail
+
+-- main :: IO ()
+-- main = do
+--   eitherPage <- getPage "http://www.leboncoin.fr/locations/794858813.htm?ca=18_s"
+--   case eitherPage of
+--     Right page ->
+--       putStrLn (show $ parseDetail page)
+--     Left error ->
+--       T.putStrLn error
-- 
cgit v1.2.3