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 | |
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 |