diff options
author | Joris Guyonvarch | 2015-04-19 12:14:50 +0200 |
---|---|---|
committer | Joris Guyonvarch | 2015-04-19 12:15:51 +0200 |
commit | 78048fcbc81521d145b79b4b47761a8b698d7ff7 (patch) | |
tree | c6720dfaa1ccb15111a882421a18836a0c140292 /src/Main.hs | |
parent | 389d979eb3eaa18beb8a6da9f4a03bdb6acc1722 (diff) | |
download | ad-listener-78048fcbc81521d145b79b4b47761a8b698d7ff7.tar.gz ad-listener-78048fcbc81521d145b79b4b47761a8b698d7ff7.tar.bz2 ad-listener-78048fcbc81521d145b79b4b47761a8b698d7ff7.zip |
Adding a design to the HTML mail + Adding waitInMinutes in the
configuration
Diffstat (limited to 'src/Main.hs')
-rw-r--r-- | src/Main.hs | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/src/Main.hs b/src/Main.hs index 82135a2..f38646b 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -19,15 +19,3 @@ 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 |