mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 05:57:04 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

substitutes: lookup-narinfos: Return the number of requests made.

Browse source 
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.
This commit is contained in:
Christopher Baines 2021-03-15 14:06:27 +00:00
parent b48204259a
commit c5ab78f90b
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
guix/substitutes.scm
View file

@ -310,13 +310,14 @@ (define* (lookup-narinfos cache paths
'()
'()
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