{-# LANGUAGE ScopedTypeVariables #-}
module Main
where

import Data.Maybe (fromJust)
import Text.HandsomeSoup (parseHtml)

import Epublishable
import LWN.ArticlePage

main :: IO ()
main = do
  article_html <- readFile "test/fixtures/501317-article.html"
  ioap <- parse $ parseHtml article_html
  let article_page :: ArticlePage = fromJust $ ioap
  epublish article_page "out.epub"
  putStrLn "Done."