Parsing utag_list from a detail page and showing the keys that are given in the configuration file

1 files changed, 12 insertions, 0 deletions

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