a810bc9d9ab04f4c14b9288dd0e7ea1a14527d0a
[dead/lwn-epub.git] / src / Main.hs
1 {-# LANGUAGE ScopedTypeVariables #-}
2 module Main
3 where
4
5 import Data.Maybe (fromJust)
6 import Text.HandsomeSoup (parseHtml)
7
8 import Epublishable
9 import LWN.ArticlePage
10
11 main :: IO ()
12 main = do
13 article_html <- readFile "test/fixtures/501317-article.html"
14 ioap <- parse $ parseHtml article_html
15 let article_page :: ArticlePage = fromJust $ ioap
16 epublish article_page "out.epub"
17 putStrLn "Done."