ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 14:28:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

download: Comment on lack of progress report with chunked encoding.

Browse source 
* guix/build/download.scm (progress-proc): Add comment.
This commit is contained in:
Ludovic Courtès 2015-02-27 15:04:05 +01:00
parent 9fbe6f1920
commit c9727aac40
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
guix/build/download.scm
View file

@ -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 "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 SIZE byte long. The returned procedure is suitable for use as an
argument to `dump-port'. The progress report is written to LOG-PORT." argument to `dump-port'. The progress report is written to LOG-PORT."
;; XXX: Because of <http://bugs.gnu.org/19939> 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 ((start-time #f))
(let-syntax ((with-elapsed-time (let-syntax ((with-elapsed-time
(syntax-rules () (syntax-rules ()