diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2021-03-17 11:43:07 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-03-17 12:03:25 +0100 |
| commit | 728c90862eb967a1679efdb69e26d7ba37cdc3a3 (patch) | |
| tree | 5656850ee695cc7dd0e264d1bc9b17df036c7b98 | |
| parent | 29330b57e2c8cb4fce222bd69155c24bea0f7608 (diff) | |
| download | guix-728c90862eb967a1679efdb69e26d7ba37cdc3a3.tar guix-728c90862eb967a1679efdb69e26d7ba37cdc3a3.tar.gz | |
gnu-maintenance: Add a timeout on FTP connection establishment.
* guix/gnu-maintenance.scm (latest-ftp-release): Pass #:timeout to
'ftp-open'.
| -rw-r--r-- | guix/gnu-maintenance.scm | 2 |
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)) |