X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FLWN%2FArticle.hs;h=2820d54f93393a94fbd59b6928405c34f9598af1;hp=2da17354249edd936b4bc74648b1612ebf7ec2a1;hb=5cb0170a5ab418147e3403fb141797f2282b78f4;hpb=b591d5f5c3c47d253c24144beae1edf8648cd94b

diff --git a/src/LWN/Article.hs b/src/LWN/Article.hs
index 2da1735..2820d54 100644
--- a/src/LWN/Article.hs
+++ b/src/LWN/Article.hs
@@ -3,12 +3,12 @@ where
 
 import XHTML
 
-data Article = Article { headline  :: String,
+data Article = Article { title     :: 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" ++
+  to_xhtml (Article t bl b) =
+    "<h2>" ++ t ++ "</h2>\n\n" ++
+    "<p><em>" ++ bl ++ "</em></p>\n\n" ++
     b