diff options
| author | Marius Bakke <marius@gnu.org> | 2020-12-21 23:44:54 +0100 |
|---|---|---|
| committer | Marius Bakke <marius@gnu.org> | 2020-12-21 23:44:54 +0100 |
| commit | 119fd58922b00d43d4f8b055f3f622478a13f46d (patch) | |
| tree | 4869f9f09079d5a33f7dfd51ca8e52200fbeb09f /gnu/services | |
| parent | 85ba5e9335207beef9a650e96d5d64787beb9256 (diff) | |
| parent | bbe4ed65ed5fe7dc8ed9d226042852387cee3b1e (diff) | |
| download | guix-119fd58922b00d43d4f8b055f3f622478a13f46d.tar.gz | |
Merge branch 'ungrafting' into staging
Diffstat (limited to 'gnu/services')
| -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 "()"))) |