Begin work on the full page code.
[dead/lwn-epub.git] / src / LWN / Article.hs
1 module LWN.Article
2 where
3
4 import XHTML
5
6 data Article = Article { title :: String,
7 byline :: String,
8 body_html :: String }
9
10 instance XHTML Article where
11 to_xhtml (Article t bl b) =
12 "<h2>" ++ t ++ "</h2>\n\n" ++
13 "<p><em>" ++ bl ++ "</em></p>\n\n" ++
14 b