summaryrefslogtreecommitdiff
path: root/guix/build
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-08-01 10:56:45 +0200
committerLudovic Courtès <ludo@gnu.org>2022-08-01 14:08:07 +0200
commitcce7427f95c51a04675c4b954b02623cdb8bc7c6 (patch)
tree2cfda0aa1d07eb62d03e5520b33f34e27a0714a8 /guix/build
parentdc3ad40c6b1023785352bd995fd1bee2ba9e2770 (diff)
download: 'url-fetch' closes its HTTP/HTTPS port.
* guix/build/download.scm (url-fetch)[fetch]: In the http/https case, close PORT before returning.
Diffstat (limited to 'guix/build')
-rw-r--r--guix/build/download.scm1
1 files changed, 1 insertions, 0 deletions
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 @@ otherwise simply ignore them."
(progress-reporter/file
(uri-abbreviation uri) size)))
(newline)))
+ (close-port port)
file)))
((ftp)
(false-if-exception* (ftp-fetch uri file