diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-06-13 22:15:41 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-06-13 22:15:41 +0200 |
| commit | 8e59fdd53bbc3eba75328e1e1a329291fcedc0bc (patch) | |
| tree | 7b3c3b7de043e98e4155ad6796d3a5bebbeaa03d /guix/scripts | |
| parent | 3f1e69395cbfaad80710bdfbef433c26aa216271 (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.scm | 8 |
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) |