From 064ff4c89d232b7ac5fecb3e7084d92d7fabc0d9 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 15 Mar 2021 14:06:27 +0000 Subject: 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. --- guix/substitutes.scm | 15 ++++++++------- 1 file 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 -- cgit v1.2.3