[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: services: 'references-file' depends on Guile-Gcry
From: |
guix-commits |
Subject: |
branch master updated: services: 'references-file' depends on Guile-Gcrypt. |
Date: |
Tue, 15 Dec 2020 16:30:34 -0500 |
This is an automated email from the git hooks/post-receive script.
civodul pushed a commit to branch master
in repository guix.
The following commit(s) were added to refs/heads/master by this push:
new d88ff09 services: 'references-file' depends on Guile-Gcrypt.
d88ff09 is described below
commit d88ff09ea3138fc85c1463b0b345bd6ba71ca568
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue Dec 15 22:27:35 2020 +0100
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(-)
diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 8449d92..945b546 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 "()")))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: services: 'references-file' depends on Guile-Gcrypt.,
guix-commits <=