import XHTML
-data Article = Article { headline :: String,
+data Article = Article { title :: String,
byline :: String,
body_html :: String }
instance XHTML Article where
- to_xhtml (Article hl bl b) =
- "<h1>" ++ hl ++ "</h1>\n\n" ++
- "<h2>" ++ bl ++ "</h2>\n\n" ++
+ to_xhtml (Article t bl b) =
+ "<h2>" ++ t ++ "</h2>\n\n" ++
+ "<p><em>" ++ bl ++ "</em></p>\n\n" ++
b