From cce7427f95c51a04675c4b954b02623cdb8bc7c6 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 1 Aug 2022 10:56:45 +0200 Subject: download: 'url-fetch' closes its HTTP/HTTPS port. * guix/build/download.scm (url-fetch)[fetch]: In the http/https case, close PORT before returning. --- guix/build/download.scm | 1 + 1 file changed, 1 insertion(+) (limited to 'guix/build/download.scm') diff --git a/guix/build/download.scm b/guix/build/download.scm index 41583e8143..951ca3a57a 100644 --- a/guix/build/download.scm +++ b/guix/build/download.scm @@ -744,6 +744,7 @@ (define (fetch uri file) (progress-reporter/file (uri-abbreviation uri) size))) (newline))) + (close-port port) file))) ((ftp) (false-if-exception* (ftp-fetch uri file -- cgit v1.2.3