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

* guix/gnu-maintenance.scm (latest-ftp-release): Pass #:timeout to
'ftp-open'.

diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 31cc948..4ba2a5f 100644 (file)
--- 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))