{-# LANGUAGE OverloadedStrings #-}

module Main
  ( main
  ) where

import qualified Data.Text.IO as T

import AdListener (listenToNewAds)

import Config (Config)
import qualified Config as C

main :: IO ()
main = do
  maybeConfig <- C.getConfig
  case maybeConfig of
    Just config ->
      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