From 728c90862eb967a1679efdb69e26d7ba37cdc3a3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 17 Mar 2021 11:43:07 +0100
Subject: [PATCH] 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 31cc9480f3..4ba2a5f731 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))