summaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-04-13 19:59:03 +0200
committerLudovic Courtès <ludo@gnu.org>2022-05-01 21:30:34 +0200
commit774f8804bafbf42a65eca492d1395da57deeb467 (patch)
tree86e5c4430f4ee33478023824e4d942e3b7f25b37 /gnu/services
parent6b4124cdcc203d47dc40158062afa1497d73d592 (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.scm22
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)