module LWN.Article
where

import XHTML

data Article = Article { headline  :: 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" ++
    b