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!"