summaryrefslogtreecommitdiff
path: root/guix/scripts/weather.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2021-02-24 19:28:05 +0000
committerChristopher Baines <mail@cbaines.net>2021-03-09 20:19:36 +0000
commitf5ffb3bd9cd59cfff5b4625d6d65e8d116d0a25b (patch)
tree04b4582bccfd62810304d77e89c6789dc6efe494 /guix/scripts/weather.scm
parentfd5b77503e852b78a43e1bee4d6bdfbbb1f27e8f (diff)
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.scm6
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))