diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-03-15 14:06:27 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-03-17 20:46:20 +0000 |
| commit | c5ab78f90b111839508d0ab10c0e5ac2038002ca (patch) | |
| tree | c106af3aa290016e08ba045a564aee7bece2338d | |
| parent | b48204259aa9cad80c5b23a4060e2d796007ec7a (diff) | |
| download | guix-c5ab78f90b111839508d0ab10c0e5ac2038002ca.tar.gz guix-c5ab78f90b111839508d0ab10c0e5ac2038002ca.zip | |
substitutes: lookup-narinfos: Return the number of requests made.
As an additional value, in addition to the narinfos. This value is useful in
the weather script for reporting how many requests to the substitute server
were made.
* guix/substitutes.scm (lookup-narinfos): Additionally return the number of
requests made.
| -rw-r--r-- | guix/substitutes.scm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/guix/substitutes.scm b/guix/substitutes.scm index ef78013659..08f8c24efd 100644 --- a/guix/substitutes.scm +++ b/guix/substitutes.scm @@ -310,13 +310,14 @@ information is available locally." '() '() paths))) - (if (null? missing) - cached - (let ((missing (fetch-narinfos cache missing - #:open-connection open-connection - #:make-progress-reporter - make-progress-reporter))) - (append cached (or missing '())))))) + (values (if (null? missing) + cached + (let ((missing (fetch-narinfos cache missing + #:open-connection open-connection + #:make-progress-reporter + make-progress-reporter))) + (append cached (or missing '())))) + (length missing)))) (define* (lookup-narinfos/diverse caches paths authorized? #:key (open-connection |