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

* guix/build/download.scm (url-fetch)[fetch]: In the http/https case, close PORT before returning.
2022-08-01 10:56:45 +02:00 · 2022-08-01 10:56:45 +02:00 · cce7427f95
commit cce7427f95
parent dc3ad40c6b
1 changed files with 1 additions and 0 deletions
--- 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