]> gitweb.michael.orlitzky.com - dead/lwn-epub.git/blob - LWN/Article.hs
Bump a few dependencies, fix compilation failures.
[dead/lwn-epub.git] / LWN / Article.hs
1 module LWN.Article
2 where
3
4 import XHTML
5
6 data Article = Article { headline :: String,
7 byline :: String,
8 body_html :: String }
9
10 instance XHTML Article where
11 to_xhtml (Article hl bl b) =
12 "<h1>" ++ hl ++ "</h1>\n\n" ++
13 "<h2>" ++ bl ++ "</h2>\n\n" ++
14 b