scrap.hs

module Main where

import Lib
import Text.HTML.Scalpel

data Image = Image String deriving Show

comicImage :: IO (Maybe [String])
comicImage = do
  scrapeURL "http://doc.scrapy.org/en/latest/_static/selectors-sample1.html" comic
  where
    comic :: Scraper String [String]
    comic =  chroots ("a") $ do
      author <- attr "href" Any
      return author


main :: IO ()
main = do
  putStrLn "hello"
  scr <- comicImage
  case scr of
    Nothing -> putStrLn "error"
    Just x -> mapM_ putStrLn (x)