addNewFeed :: (IConnection c) => c -> RSSFeed -> IO()
addNewFeed conn fd = addFeed conn toadd
    where toadd = setTitle fd $ fd_rssurl fd
          setTitle :: RSSFeed -> Maybe String -> RSSFeed
          setTitle (RSSFeed r u _ ty tgs) title = RSSFeed r u title ty tgs

-- TODO Find right type for this function
addNewFeed :: (IConnection c) => c -> RSSFeed -> IO()
addNewFeed conn fd = addFeed conn toadd
    where toadd = setTitle fd $ fd_rssurl fd
          setTitle :: RSSFeed -> Maybe String -> RSSFeed
          setTitle (RSSFeed r u _ ty tgs) title = RSSFeed r u title ty tgs

-- TODO Find right type for this function
addNewFeed conn fd = addFeed conn toadd
    where toadd = setTitle fd $ fd_rssurl fd
          setTitle :: RSSFeed -> Maybe String -> RSSFeed
          setTitle (RSSFeed r u _ ty tgs) title = RSSFeed r u title ty tgs

-- TODO Find right type for this function