branch master updated: services: 'references-file' depends on Guile-Gcrypt.

[guix-commits]

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 "()")))