diff options
author | Ludovic Courtès <ludo@gnu.org> | 2022-08-01 10:56:45 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2022-08-01 14:08:07 +0200 |
commit | cce7427f95c51a04675c4b954b02623cdb8bc7c6 (patch) | |
tree | 2cfda0aa1d07eb62d03e5520b33f34e27a0714a8 /guix/build | |
parent | dc3ad40c6b1023785352bd995fd1bee2ba9e2770 (diff) | |
download | guix-patches-cce7427f95c51a04675c4b954b02623cdb8bc7c6.tar guix-patches-cce7427f95c51a04675c4b954b02623cdb8bc7c6.tar.gz |
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.scm | 1 |
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 |