diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-04-13 19:59:03 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-05-01 21:30:34 +0200 |
| commit | 774f8804bafbf42a65eca492d1395da57deeb467 (patch) | |
| tree | 86e5c4430f4ee33478023824e4d942e3b7f25b37 /gnu/services | |
| parent | 6b4124cdcc203d47dc40158062afa1497d73d592 (diff) | |
gexp: Add 'references-file'.
* gnu/services/base.scm (references-file): Remove.
* guix/gexp.scm (references-file): New procedure.
* tests/gexp.scm ("references-file"): New test.
Diffstat (limited to 'gnu/services')
| -rw-r--r-- | gnu/services/base.scm | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm index f1649eb084..e324864744 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -219,8 +219,6 @@ pam-limits-service-type pam-limits-service - references-file - %base-services)) ;;; Commentary: @@ -1768,26 +1766,6 @@ proxy of 'guix-daemon'...~%") (substitute-key-authorization authorized-keys guix) #~#f)))) -(define* (references-file item #:optional (name "references")) - "Return a file that contains the list of references of ITEM." - (if (struct? item) ;lowerable object - (computed-file name - (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 "()"))) - (define guix-service-type (service-type (name 'guix) |