src/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