[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#45146] [PATCH 2/2] weather: Call lookup-narinfos with a custom prog
From: |
Christopher Baines |
Subject: |
[bug#45146] [PATCH 2/2] weather: Call lookup-narinfos with a custom progress reporter. |
Date: |
Wed, 24 Feb 2021 20:34:12 +0000 |
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.
---
guix/scripts/weather.scm | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
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))
--
2.30.0