download fd@(RSSFeed (Just _) _ _ Nothing      _) = download $ setType fd
download fd@(RSSFeed (Just _) _ _ Nothing      _) = download $ setType fd
download fd@(RSSFeed (Just _) _ _ Nothing      _) = download $ setType fd