+ 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."