diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 12 |
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 |