-main :: IO ()
-main = do
- let article_html = my_read "test/fixtures/501317-article.html"
- ioap <- parse article_html
- let article_page :: ArticlePage = fromJust $ ioap
- epublish article_page "single_article.epub"
-
- let page_html = my_read "test/fixtures/500848-page.html"
- ioap_f <- parse page_html
- let full_page :: FullPage = fromJust $ ioap_f
- epublish full_page "full_page.epub"
+-- | If we're given an empty path, return a handle to
+-- 'stdout'. Otherwise, open the given file and return a read/write
+-- handle to that.
+get_output_handle :: FilePath -> IO Handle
+get_output_handle path =
+ if (null path) then
+ return stdout
+ else
+ openBinaryFile path WriteMode