+{-# LANGUAGE ScopedTypeVariables #-}
module Main
where
import Data.Maybe (fromJust)
import Text.HandsomeSoup (parseHtml)
-import System.Time (ClockTime( TOD ), getClockTime)
import Epublishable
import LWN.ArticlePage
article_html <- readFile "test/fixtures/501317-article.html"
ioap <- parse $ parseHtml article_html
let article_page :: ArticlePage = fromJust $ ioap
- (TOD t _) <- getClockTime
- epublish article_page "out.epub" t
+ epublish article_page "out.epub"
putStrLn "Done."