11/13: gnu-maintenance: Remove unused parameters of 'latest-ftp-release'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 29330b57e2c8cb4fce222bd69155c24bea0f7608
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Mar 17 11:36:59 2021 +0100

    gnu-maintenance: Remove unused parameters of 'latest-ftp-release'.
    
    * guix/gnu-maintenance.scm (latest-ftp-release): Remove #:ftp-open, 
#:ftp-close,
    and #:keep-file?.
---
 guix/gnu-maintenance.scm | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 053ad53..31cc948 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -327,16 +327,11 @@ name/directory pairs."
                              #:key
                              (server "ftp.gnu.org")
                              (directory (string-append "/gnu/" project))
-                             (keep-file? (const #t))
-                             (file->signature (cut string-append <> ".sig"))
-                             (ftp-open ftp-open) (ftp-close ftp-close))
+                             (file->signature (cut string-append <> ".sig")))
   "Return an <upstream-source> for the latest release of PROJECT on SERVER
 under DIRECTORY, or #f.  Use FTP-OPEN and FTP-CLOSE to open (resp. close) FTP
 connections; this can be useful to reuse connections.
 
-KEEP-FILE? is a predicate to decide whether to enter a directory and to
-consider a given file (source tarball) as a valid candidate based on its name.
-
 FILE->SIGNATURE must be a procedure; it is passed a source file URL and must
 return the corresponding signature URL, or #f it signatures are unavailable."
   (define (latest a b)
@@ -394,7 +389,6 @@ return the corresponding signature URL, or #f it signatures 
are unavailable."
            (releases (filter-map (match-lambda
                                    ((file 'file . _)
                                     (and (release-file? project file)
-                                         (keep-file? file)
                                          (file->source directory file)))
                                    (_ #f))
                                  entries)))