X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FLWN%2FArticlePage.hs;h=927e241d91eba76b57f586133087db652738df4f;hp=0e699a0978953ad61e9aaa7105c97025b11be3c2;hb=5cb0170a5ab418147e3403fb141797f2282b78f4;hpb=b591d5f5c3c47d253c24144beae1edf8648cd94b
diff --git a/src/LWN/ArticlePage.hs b/src/LWN/ArticlePage.hs
index 0e699a0..927e241 100644
--- a/src/LWN/ArticlePage.hs
+++ b/src/LWN/ArticlePage.hs
@@ -32,7 +32,7 @@ instance XHTML ArticlePage where
"\n
\n" ++
" " ++
- " " ++ (headline a) ++ "\n" ++
+ " " ++ (LWN.Article.title a) ++ "\n" ++
"\n" ++
"\n" ++
"\n\n" ++
@@ -49,7 +49,7 @@ instance Epublishable ArticlePage where
Just [x] -> return $ Just $ ArticlePage x
_ -> return Nothing
- title (ArticlePage x) = headline x
+ title (ArticlePage x) = LWN.Article.title x
-- | Takes data from an LWN page and determines whether or not it's a
@@ -95,7 +95,7 @@ parse_articles xml = do
parsed_headline <- parse_headline xml
parsed_byline <- parse_byline xml
parsed_body <- parse_body xml
- let headline' = fromJust parsed_headline
- let byline' = fromJust parsed_byline
- let body' = fromJust parsed_body
- return $ Just $ [Article headline' byline' body']
+ let title' = fromJust parsed_headline
+ let byline' = fromJust parsed_byline
+ let body' = fromJust parsed_body
+ return $ Just $ [Article title' byline' body']