From d88ff09ea3138fc85c1463b0b345bd6ba71ca568 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 15 Dec 2020 22:27:35 +0100 Subject: 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'. --- gnu/services/base.scm | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) (limited to 'gnu/services/base.scm') diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 8449d924af..945b546607 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -1718,17 +1718,18 @@ (define* (references-file item #:optional (name "references")) "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)) - - (call-with-output-file #$output - (lambda (port) - (write (map store-info-item - (call-with-input-file "graph" - read-reference-graph)) - port))))) + (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)))))) #:options `(#:local-build? #f #:references-graphs (("graph" ,item)))) (plain-file name "()"))) -- cgit v1.2.3