me
/
guix
Archived
1
0
Fork 0
Code

store: Add 'references/cached'. 

* guix/store.scm (references/cached): New procedure.
master
Ludovic Courtès 2020-03-29 01:21:32 +01:00
parent 25af35fa32
commit c70cf1a724
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix/store.scm
View File

@ -135,6 +135,7 @@
built-in-builders built-in-builders
references references
references/cached
references/substitutes references/substitutes
references* references*
query-path-info* query-path-info*
@ -1393,6 +1394,13 @@ error if there is no such root."
;; would use a cache associated with the daemon connection instead (XXX). ;; would use a cache associated with the daemon connection instead (XXX).
(make-hash-table 100)) (make-hash-table 100))
(define (references/cached store item)
"Like 'references', but cache results."
(or (hash-ref %reference-cache item)
(let ((references (references store item)))
(hash-set! %reference-cache item references)
references)))
(define (references/substitutes store items) (define (references/substitutes store items)
"Return the list of list of references of ITEMS; the result has the same "Return the list of list of references of ITEMS; the result has the same
length as ITEMS. Query substitute information for any item missing from the length as ITEMS. Query substitute information for any item missing from the