summaryrefslogtreecommitdiff
path: root/guix/scripts
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-06-13 22:15:41 +0200
committerLudovic Courtès <ludo@gnu.org>2013-06-13 22:15:41 +0200
commit8e59fdd53bbc3eba75328e1e1a329291fcedc0bc (patch)
tree7b3c3b7de043e98e4155ad6796d3a5bebbeaa03d /guix/scripts
parent3f1e69395cbfaad80710bdfbef433c26aa216271 (diff)
guix gc: Add `--requisites'.
* guix/scripts/gc.scm (show-help, %options): Add `--requisites'. (guix-gc): Handle it. * doc/guix.texi (Invoking guix gc): Document `--requisites'. * NEWS: Update.
Diffstat (limited to 'guix/scripts')
-rw-r--r--guix/scripts/gc.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/guix/scripts/gc.scm b/guix/scripts/gc.scm
index cecb68ec36..77ec7635de 100644
--- a/guix/scripts/gc.scm
+++ b/guix/scripts/gc.scm
@@ -51,6 +51,8 @@ Invoke the garbage collector.\n"))
(display (_ "
--references list the references of PATHS"))
(display (_ "
+ -R, --requisites list the requisites of PATHS"))
+ (display (_ "
--referrers list the referrers of PATHS"))
(newline)
(display (_ "
@@ -128,6 +130,10 @@ interpreted."
(lambda (opt name arg result)
(alist-cons 'action 'list-references
(alist-delete 'action result))))
+ (option '(#\R "requisites") #f #f
+ (lambda (opt name arg result)
+ (alist-cons 'action 'list-requisites
+ (alist-delete 'action result))))
(option '("referrers") #f #f
(lambda (opt name arg result)
(alist-cons 'action 'list-referrers
@@ -189,6 +195,8 @@ interpreted."
(delete-paths store paths))
((list-references)
(list-relatives references))
+ ((list-requisites)
+ (list-relatives requisites))
((list-referrers)
(list-relatives referrers))
((list-dead)