substitute: Progress port really closes underlying port.

* guix/scripts/substitute.scm (progress-report-port): Use 'close-port' instead of 'close-connection'. Move 'stop' call first.
2018-09-25 12:28:55 +02:00 · 2018-09-25 12:28:55 +02:00 · f85dbc4f3b
parent cfe19684ea
commit f85dbc4f3b
1 changed files with 2 additions and 2 deletions
--- a/guix/scripts/substitute.scm
+++ b/guix/scripts/substitute.scm
@ -837,8 +837,8 @@ REPORTER, which should be a <progress-reporter> object."
       (make-custom-binary-input-port "progress-port-proc"
                                      read! #f #f
                                      (lambda ()
-                                        (close-connection port)
-                                        (stop)))))))
+                                        (stop)
+                                        (close-port port)))))))

 (define-syntax with-networking
  (syntax-rules ()