diff options
| author | 宋文武 <iyzsong@member.fsf.org> | 2017-10-12 22:27:04 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@member.fsf.org> | 2017-10-12 22:31:22 +0800 |
| commit | abaee53c808fe6df02de2f403dd8904e42d5fede (patch) | |
| tree | 34829ae1a8bfeda76eceaf57c47175ebaf382387 /guix/scripts | |
| parent | c6643f2d52e3da7e800a742db03e62161e9f82e5 (diff) | |
| download | gnu-guix-abaee53c808fe6df02de2f403dd8904e42d5fede.tar gnu-guix-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)'.
Diffstat (limited to 'guix/scripts')
| -rwxr-xr-x | guix/scripts/substitute.scm | 1 |
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. |