mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-20 06:37:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

download-nar: Improve output.

Browse source 
Report errors that occur, output the "Downloading from " line before starting
to report progress and end the output with a newline.
This commit is contained in:
Christopher Baines 2023-07-28 18:08:17 +01:00
parent a11107a3b2
commit 3bb3fddb5c
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 19 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
guix/build/download-nar.scm
View file

@ -73,29 +73,34 @@ (define (download-nar item)
(catch #t
(lambda ()
(http-fetch (string->uri url)))
(lambda args
(lambda (key . args)
(format #t "Unable to fetch from ~a, ~a: ~a~%"
(uri-host (string->uri url))
key
args)
(values #f #f)))))
(if (not port)
(loop rest)
(let* ((reporter (progress-reporter/file
url
size
(current-error-port)
#:abbreviation nar-uri-abbreviation))
(port-with-progress
(progress-report-port reporter port
#:download-size size)))
(begin
(if size
(format #t "Downloading from ~a (~,2h MiB)...~%" url
(/ size (expt 2 20.)))
(format #t "Downloading from ~a...~%" url))
(if (string-contains url "/lzip")
(restore-lzipped-nar port-with-progress
item
size)
(begin
(let* ((reporter (progress-reporter/file
url
size
(current-error-port)
#:abbreviation nar-uri-abbreviation))
(port-with-progress
(progress-report-port reporter port
#:download-size size)))
(if (string-contains url "/lzip")
(restore-lzipped-nar port-with-progress
item
size)
(restore-file port-with-progress
item)))
(newline)
#t))))
(()
#f))))