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