03/03: substitute: Close port at the end of http-multiple-get.

[guix-commits]

cbaines pushed a commit to branch master
in repository guix.

commit 928dc1bb1c1e96e6dfbe03dac2185ecf41a7b4f5
Author: Christopher Baines <address@hidden>
AuthorDate: Mon Mar 2 20:20:40 2020 +0000

    substitute: Close port at the end of http-multiple-get.
    
    * guix/scripts/substitute.scm (http-multiple-get): Add close-port call.
---
 guix/scripts/substitute.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm
index 0777aa3..ba2b2d2 100755
--- a/guix/scripts/substitute.scm
+++ b/guix/scripts/substitute.scm
@@ -537,6 +537,7 @@ initial connection on which HTTP requests are sent."
           (()
            (match (drop requests processed)
              (()
+              (close-port p)
               (reverse result))
              (remainder
               (connect p remainder result))))