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=d5bab2c486d30e54d3e94cc3bdbb230f2cd1f3f3 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']