findType :: RSSFeed -> Maybe FDType
findType (RSSFeed Nothing    _ _ _ _) = Nothing
findType :: RSSFeed -> Maybe FDType
findType (RSSFeed Nothing    _ _ _ _) = Nothing
findType (RSSFeed Nothing    _ _ _ _) = Nothing