{-# LANGUAGE ScopedTypeVariables #-} module Main where import Data.Maybe (fromJust) import Text.HandsomeSoup (parseHtml) import Epublishable import LWN.ArticlePage import LWN.FullPage import XHTML 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 "single_article.epub" page_html <- readFile "test/fixtures/500848-page.html" ioap_f <- parse $ parseHtml page_html let full_page :: FullPage = fromJust $ ioap_f --putStrLn $ to_xhtml full_page --epublish full_page "full_page.epub" putStrLn "Done."