module LWN.Article
where

import XHTML

data Article = Article { title     :: String,
                         byline    :: String,
                         body_html :: String }

instance XHTML Article where
  to_xhtml (Article t bl b) =
    "<h2>" ++ t ++ "</h2>\n\n" ++
    "<p><em>" ++ bl ++ "</em></p>\n\n" ++
    b