"\n<head>\n" ++
" <meta http-equiv=\"Content-Type\"" ++
" content=\"application/xhtml+xml; charset=utf-8\" />" ++
- " <title>" ++ (headline a) ++ "</title>\n" ++
+ " <title>" ++ (LWN.Article.title a) ++ "</title>\n" ++
"</head>\n" ++
"<body>\n" ++
"<div>\n\n" ++
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
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']