diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-12-15 22:27:35 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-12-15 22:29:55 +0100 |
| commit | d88ff09ea3138fc85c1463b0b345bd6ba71ca568 (patch) | |
| tree | 8966f6fe5c0216539da39d6e6f1e86cb56777220 | |
| parent | a387cbab4f64c17713c8e438bf4e70fb54d2d961 (diff) | |
| download | 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'.
| -rw-r--r-- | gnu/services/base.scm | 23 |
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 "()"))) |