kreyren/guix-kreyren
1
0
Fork 0
Code Issues 1 Pull Requests 1 Releases Activity

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

Browse Source 
Regression introduced in 6a060ff27ff68384d7c90076baa36c349fff689d.

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

21
gnu/services/base.scm
View File

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