mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-01 00:52:55 -05:00
weather: Call lookup-narinfos with a custom progress reporter.
This means there's a useful progress bar when running guix weather. * guix/scripts/weather.scm (report-server-coverage): Pass #:make-progress-reporter to lookup-narinfos.
This commit is contained in:
parent
fd5b77503e
commit
f5ffb3bd9c
1 changed files with 5 additions and 1 deletions
|
@ -181,7 +181,11 @@ (define MiB (* (expt 2 20) 1.))
|
|||
(format #t (G_ "looking for ~h store items on ~a...~%")
|
||||
(length items) server)
|
||||
|
||||
(let/time ((time narinfos (lookup-narinfos server items)))
|
||||
(let/time ((time narinfos (lookup-narinfos
|
||||
server items
|
||||
#:make-progress-reporter
|
||||
(lambda* (total #:key url #:allow-other-keys)
|
||||
(progress-reporter/bar total)))))
|
||||
(format #t "~a~%" server)
|
||||
(let ((obtained (length narinfos))
|
||||
(requested (length items))
|
||||
|
|
Loading…
Reference in a new issue