aboutsummaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-12-15 22:27:35 +0100
committerLudovic Courtès <ludo@gnu.org>2020-12-15 22:29:55 +0100
commitd88ff09ea3138fc85c1463b0b345bd6ba71ca568 (patch)
tree8966f6fe5c0216539da39d6e6f1e86cb56777220 /gnu/services
parenta387cbab4f64c17713c8e438bf4e70fb54d2d961 (diff)
downloadguix-d88ff09ea3138fc85c1463b0b345bd6ba71ca568.tar
guix-d88ff09ea3138fc85c1463b0b345bd6ba71ca568.tar.gz
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'.
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/base.scm23
1 files changed, 12 insertions, 11 deletions
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 @@ 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))
-
- (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 "()")))