newFeeds conn (l:ls) = do b <- hasFeed conn l
                          if b then newFeeds conn ls
                          else do nfds <- newFeeds conn ls
                                  return $ l : nfds
newFeeds conn (l:ls) = do b <- hasFeed conn l
                          if b then newFeeds conn ls
                          else do nfds <- newFeeds conn ls
                                  return $ l : nfds
newFeeds conn (l:ls) = do b <- hasFeed conn l
                          if b then newFeeds conn ls
                          else do nfds <- newFeeds conn ls
                                  return $ l : nfds