From 8e59fdd53bbc3eba75328e1e1a329291fcedc0bc Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 13 Jun 2013 22:15:41 +0200 Subject: 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. --- guix/scripts/gc.scm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'guix/scripts') 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 @@ -50,6 +50,8 @@ Invoke the garbage collector.\n")) (newline) (display (_ " --references list the references of PATHS")) + (display (_ " + -R, --requisites list the requisites of PATHS")) (display (_ " --referrers list the referrers of PATHS")) (newline) @@ -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) -- cgit v1.2.3