loadFeeds :: (IConnection c) => c -> IO [RSSFeed]
loadFeeds conn = do rows <- quickQuery' conn "SELECT rssurl,url,title FROM rss_feed" []
                    return $ map rowToFeed rows
loadFeeds :: (IConnection c) => c -> IO [RSSFeed]
loadFeeds conn = do rows <- quickQuery' conn "SELECT rssurl,url,title FROM rss_feed" []
                    return $ map rowToFeed rows
loadFeeds conn = do rows <- quickQuery' conn "SELECT rssurl,url,title FROM rss_feed" []
                    return $ map rowToFeed rows