aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
author宋文武 <iyzsong@member.fsf.org>2017-10-12 22:27:04 +0800
committer宋文武 <iyzsong@member.fsf.org>2017-10-12 22:31:22 +0800
commitabaee53c808fe6df02de2f403dd8904e42d5fede (patch)
tree34829ae1a8bfeda76eceaf57c47175ebaf382387
parentc6643f2d52e3da7e800a742db03e62161e9f82e5 (diff)
downloadpatches-abaee53c808fe6df02de2f403dd8904e42d5fede.tar
patches-abaee53c808fe6df02de2f403dd8904e42d5fede.tar.gz
substitute: Close the progress port after substitute finished.
Fixes <https://bugs.gnu.org/28756>. * guix/scripts/substitute.scm (progress-substitution): Call '(close-port progress)'.
-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 3dcf42d0d1..921a7c6790 100755
--- a/guix/scripts/substitute.scm
+++ b/guix/scripts/substitute.scm
@@ -962,6 +962,7 @@ DESTINATION as a nar file. Verify the substitute against ACL."
;; Unpack the Nar at INPUT into DESTINATION.
(restore-file input destination)
(close-port input)
+ (close-port progress)
;; Skip a line after what 'progress-reporter/file' printed, and another
;; one to visually separate substitutions.