- let headline' = fromJust parsed_headline
- let byline' = fromJust parsed_byline
- let body' = fromJust parsed_body
- return $ Just $ [Article headline' byline' body']
+ let title' = Title (fromJust parsed_headline)
+ let byline' = Byline parsed_byline
+ let body' = BodyHtml (fromJust parsed_body)
+ return $ Just $ [Article title' byline' body']