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