From 728c90862eb967a1679efdb69e26d7ba37cdc3a3 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 17 Mar 2021 11:43:07 +0100 Subject: 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(-) (limited to 'guix/gnu-maintenance.scm') 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 @@ (define patch-directory-name? ;; 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)) -- cgit v1.2.3