~ruther/guix-local: substitute: Close the progress port after substitute finished.

abaee53c808fe6df02de2f403dd8904e42d5fede — 宋文武 8 years ago c6643f2

substitute: Close the progress port after substitute finished.

Fixes <https://bugs.gnu.org/28756>.

* guix/scripts/substitute.scm (progress-substitution):
Call '(close-port progress)'.

patch browse .tar.gz

1 files changed, 1 insertions(+), 0 deletions(-)

M guix/scripts/substitute.scm

M guix/scripts/substitute.scm => guix/scripts/substitute.scm +1 -0

@@ 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.