substitute: Close the download port after substitution finished.

* guix/scripts/substitute.scm (progress-substitution): Call 'close-port' after 'restore-file'.
2017-09-16 15:16:04 +08:00 · 2017-09-16 15:16:04 +08:00 · 4220514b8f
parent d82937fbe0
commit 4220514b8f
1 changed files with 1 additions and 0 deletions
--- 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.