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