12/13: gnu-maintenance: Add a timeout on FTP connection establishment.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 728c90862eb967a1679efdb69e26d7ba37cdc3a3
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Mar 17 11:43:07 2021 +0100

    gnu-maintenance: Add a timeout on FTP connection establishment.
    
    * guix/gnu-maintenance.scm (latest-ftp-release): Pass #:timeout to
    'ftp-open'.
---
 guix/gnu-maintenance.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 31cc948..4ba2a5f 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -345,7 +345,7 @@ return the corresponding signature URL, or #f it signatures 
are unavailable."
     ;; Return #t for patch directory names such as 'bash-4.2-patches'.
     (cut string-suffix? "patches" <>))
 
-  (define conn (ftp-open server))
+  (define conn (ftp-open server #:timeout 5))
 
   (define (file->url directory file)
     (string-append "ftp://"; server directory "/" file))