me
/
guix
Archived
1
0
Fork 0
Code

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.
master
Christopher Baines 2021-02-24 19:28:05 +00:00
parent fd5b77503e
commit f5ffb3bd9c
No known key found for this signature in database
GPG Key ID: 5E28A33B0B84F577
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
guix/scripts/weather.scm
View File

@ -181,7 +181,11 @@ Return the coverage ratio, an exact number between 0 and 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))