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) = "