diff --git a/guix/build/download.scm b/guix/build/download.scm index 6c94fa0574..a3105ad41d 100644 --- a/guix/build/download.scm +++ b/guix/build/download.scm @@ -64,6 +64,9 @@ (define* (progress-proc file size #:optional (log-port (current-output-port))) "Return a procedure to show the progress of FILE's download, which is SIZE byte long. The returned procedure is suitable for use as an argument to `dump-port'. The progress report is written to LOG-PORT." + ;; XXX: Because of this procedure is often not + ;; called as frequently as we'd like too; this is especially bad with Nginx + ;; on hydra.gnu.org, which returns whole nars as a single chunk. (let ((start-time #f)) (let-syntax ((with-elapsed-time (syntax-rules ()