summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-03-17 11:43:07 +0100
committerLudovic Courtès <ludo@gnu.org>2021-03-17 12:03:25 +0100
commit728c90862eb967a1679efdb69e26d7ba37cdc3a3 (patch)
tree5656850ee695cc7dd0e264d1bc9b17df036c7b98 /guix
parent29330b57e2c8cb4fce222bd69155c24bea0f7608 (diff)
gnu-maintenance: Add a timeout on FTP connection establishment.
* guix/gnu-maintenance.scm (latest-ftp-release): Pass #:timeout to 'ftp-open'.
Diffstat (limited to 'guix')
-rw-r--r--guix/gnu-maintenance.scm2
1 files changed, 1 insertions, 1 deletions
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))