populateFeed :: (IConnection c) => c -> RSSFeed -> IO RSSFeed
populateFeed conn fd = do query <- quickQuery' conn "SELECT rssurl,url,title FROM rss_feed WHERE rssurl = ?" [rurl]
                          return $ mergeTwo fd $ rowToFeed $ head query
    where rurl       = toSql $ fd_rssurl fd
          mergeTwo :: RSSFeed -> RSSFeed -> RSSFeed
          mergeTwo (RSSFeed rss _ _ _ tgs) (RSSFeed _ u t _ _) = RSSFeed rss u t Nothing tgs
populateFeed :: (IConnection c) => c -> RSSFeed -> IO RSSFeed
populateFeed conn fd = do query <- quickQuery' conn "SELECT rssurl,url,title FROM rss_feed WHERE rssurl = ?" [rurl]
                          return $ mergeTwo fd $ rowToFeed $ head query
    where rurl       = toSql $ fd_rssurl fd
          mergeTwo :: RSSFeed -> RSSFeed -> RSSFeed
          mergeTwo (RSSFeed rss _ _ _ tgs) (RSSFeed _ u t _ _) = RSSFeed rss u t Nothing tgs
populateFeed conn fd = do query <- quickQuery' conn "SELECT rssurl,url,title FROM rss_feed WHERE rssurl = ?" [rurl]
                          return $ mergeTwo fd $ rowToFeed $ head query
    where rurl       = toSql $ fd_rssurl fd
          mergeTwo :: RSSFeed -> RSSFeed -> RSSFeed
          mergeTwo (RSSFeed rss _ _ _ tgs) (RSSFeed _ u t _ _) = RSSFeed rss u t Nothing tgs