diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-02-24 19:28:05 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-03-09 20:19:36 +0000 |
| commit | f5ffb3bd9cd59cfff5b4625d6d65e8d116d0a25b (patch) | |
| tree | 04b4582bccfd62810304d77e89c6789dc6efe494 /guix/scripts/weather.scm | |
| parent | fd5b77503e852b78a43e1bee4d6bdfbbb1f27e8f (diff) | |
| download | guix-f5ffb3bd9cd59cfff5b4625d6d65e8d116d0a25b.tar guix-f5ffb3bd9cd59cfff5b4625d6d65e8d116d0a25b.tar.gz | |
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.
Diffstat (limited to 'guix/scripts/weather.scm')
| -rw-r--r-- | guix/scripts/weather.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guix/scripts/weather.scm b/guix/scripts/weather.scm index 9e94bff5a3..26ec543211 100644 --- a/guix/scripts/weather.scm +++ b/guix/scripts/weather.scm @@ -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)) |