Switch from epub to pandoc for epub creation.

[dead/lwn-epub.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index da760e45af7a58676b8b6cfdd2c0198de6c41d78..a810bc9d9ab04f4c14b9288dd0e7ea1a14527d0a 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,7 +1,17 @@
+{-# LANGUAGE ScopedTypeVariables #-}
 module Main
 where
 
+import Data.Maybe (fromJust)
+import Text.HandsomeSoup (parseHtml)
+
+import Epublishable
+import LWN.ArticlePage
 
 main :: IO ()
 main = do
-  putStrLn "Hello, world."
+  article_html <- readFile "test/fixtures/501317-article.html"
+  ioap <- parse $ parseHtml article_html
+  let article_page :: ArticlePage = fromJust $ ioap
+  epublish article_page "out.epub"
+  putStrLn "Done."