mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-02 07:56:23 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

store: Record cache lookups in 'references/cached'.

Browse source 
* guix/store.scm (references/cached): Add call to
'record-cache-lookup!'.
This commit is contained in:
Ludovic Courtès 2022-05-29 22:58:56 +02:00
parent 98e2f4fbeb
commit 40530ffd15
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
guix/store.scm
View file

@ -1840,8 +1840,10 @@ (define %reference-cache-id
(define (references/cached store item) (define (references/cached store item)
"Like 'references', but cache results." "Like 'references', but cache results."
(let ((cache (store-connection-cache store %reference-cache-id))) (let* ((cache (store-connection-cache store %reference-cache-id))
(match (vhash-assoc item cache) (value (vhash-assoc item cache)))
(record-cache-lookup! %reference-cache-id value cache)
(match value
((_ . references) ((_ . references)
references) references)
(#f (#f