me/guix
Archived
1
0
Fork 0
Code Activity

services: 'references-file' depends on Guile-Gcrypt.

Browse source 
Regression introduced in 6a060ff27f.

Reported by clone11 on #guix.

* gnu/services/base.scm (references-file): Wrap gexp in 'with-extensions'.
This commit is contained in:
Ludovic Courtès 2020-12-15 22:27:35 +01:00
parent a387cbab4f
commit d88ff09ea3
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gnu/services/base.scm
View file

@ -1718,6 +1718,7 @@ proxy of 'guix-daemon'...~%")
"Return a file that contains the list of references of ITEM." "Return a file that contains the list of references of ITEM."
(if (struct? item) ;lowerable object (if (struct? item) ;lowerable object
(computed-file name (computed-file name
(with-extensions (list guile-gcrypt) ;for store-copy
(with-imported-modules (source-module-closure (with-imported-modules (source-module-closure
'((guix build store-copy))) '((guix build store-copy)))
#~(begin #~(begin
@ -1728,7 +1729,7 @@ proxy of 'guix-daemon'...~%")
(write (map store-info-item (write (map store-info-item
(call-with-input-file "graph" (call-with-input-file "graph"
read-reference-graph)) read-reference-graph))
port))))) port))))))
#:options `(#:local-build? #f #:options `(#:local-build? #f
#:references-graphs (("graph" ,item)))) #:references-graphs (("graph" ,item))))
(plain-file name "()"))) (plain-file name "()")))