01/13: download: 'url-fetch' closes its HTTP/HTTPS port.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit cce7427f95c51a04675c4b954b02623cdb8bc7c6
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Aug 1 10:56:45 2022 +0200

    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(+)

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