From cce7427f95c51a04675c4b954b02623cdb8bc7c6 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
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(+)

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
-- 
cgit 1.4.1