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

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

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