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