nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

substitute-binary: Avoid reloading the ACL repeatedly. 

* guix/scripts/substitute-binary.scm (guix-substitute-binary) <--query>:
  Cache the result of (current-acl); pass it to 'valid-narinfo?' calls.
  This saves 12% wall-clock time for "guix build emacs -n".
This commit is contained in:
Ludovic Courtès 2014-04-01 22:56:33 +02:00
parent a7e59c50d2
commit c6e9485924
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/scripts/substitute-binary.scm
View File

@ -630,9 +630,10 @@ substituter disabled~%")
(with-error-handling ; for signature errors
(match args
(("--query")
(let ((cache (delay (open-cache %cache-url))))
(let ((cache (delay (open-cache %cache-url)))
(acl (current-acl)))
(define (valid? obj)
(and (narinfo? obj) (valid-narinfo? obj)))
(and (narinfo? obj) (valid-narinfo? obj acl)))
(let loop ((command (read-line)))
(or (eof-object? command)