setType :: RSSFeed -> RSSFeed
setType fd@(RSSFeed r u t _ tgs) = RSSFeed r u t tpe tgs
    where tpe = findType fd
setType :: RSSFeed -> RSSFeed
setType fd@(RSSFeed r u t _ tgs) = RSSFeed r u t tpe tgs
    where tpe = findType fd
setType fd@(RSSFeed r u t _ tgs) = RSSFeed r u t tpe tgs
    where tpe = findType fd