From 4220514b8faa49f33a9c5b58a1bd1f2c6d385693 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= <iyzsong@member.fsf.org>
Date: Sat, 16 Sep 2017 15:16:04 +0800
Subject: [PATCH] substitute: Close the download port after substitution
 finished.

* guix/scripts/substitute.scm (progress-substitution): Call 'close-port'
after 'restore-file'.
---
 guix/scripts/substitute.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm
index dd49cf15f34cd87d762f11e5291c86ef54a46d1c..61eff18869a690da6cc4824bcfb9df180ab2d0bd 100755
--- a/guix/scripts/substitute.scm
+++ b/guix/scripts/substitute.scm
@@ -959,6 +959,7 @@ DESTINATION as a nar file.  Verify the substitute against ACL."
                                       progress)))
       ;; Unpack the Nar at INPUT into DESTINATION.
       (restore-file input destination)
+      (close-port input)
 
       ;; Skip a line after what 'progress-proc' printed, and another one to
       ;; visually separate substitutions.