aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
author宋文武 <iyzsong@member.fsf.org>2017-09-16 15:16:04 +0800
committer宋文武 <iyzsong@member.fsf.org>2017-09-18 19:05:29 +0800
commit4220514b8faa49f33a9c5b58a1bd1f2c6d385693 (patch)
tree5dfe24b6486266b9a6a40899cd7549549ed3483e
parentd82937fbe0dd5e0c9321292b2d07b81ef807aa8e (diff)
downloadguix-4220514b8faa49f33a9c5b58a1bd1f2c6d385693.tar
guix-4220514b8faa49f33a9c5b58a1bd1f2c6d385693.tar.gz
substitute: Close the download port after substitution finished.
* guix/scripts/substitute.scm (progress-substitution): Call 'close-port' after 'restore-file'.
-rwxr-xr-xguix/scripts/substitute.scm1
1 files changed, 1 insertions, 0 deletions
diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm
index dd49cf15f3..61eff18869 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.