diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-04-19 19:12:22 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-04-19 23:34:53 +0200 |
| commit | 5763ad9266ec7682d53b87a874fc6ae04f92b6c4 (patch) | |
| tree | f86c15d803840cae60284b682b52dabf8a5c8550 /guix/scripts/package.scm | |
| parent | bbceb0ef8a1e05faaa15c5b4135275fb4572b8d9 (diff) | |
guix package: -A and -s take supported systems into account.
* guix/scripts/package.scm (guix-package)[process-query]
<list-available>: Restrict results to packages matching
'supported-package?".
* guix/ui.scm (package->recutils): Print "systems:".
* tests/guix-package.sh: Add tests.
* doc/guix.texi (Invoking guix package): Adjust description of
'--list-available' accordingly.
Diffstat (limited to 'guix/scripts/package.scm')
| -rw-r--r-- | guix/scripts/package.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm index 5ee3a89ba6..a42452ae70 100644 --- a/guix/scripts/package.scm +++ b/guix/scripts/package.scm @@ -960,11 +960,13 @@ more information.~%")) (available (fold-packages (lambda (p r) (let ((n (package-name p))) - (if regexp - (if (regexp-exec regexp n) - (cons p r) - r) - (cons p r)))) + (if (supported-package? p) + (if regexp + (if (regexp-exec regexp n) + (cons p r) + r) + (cons p r)) + r))) '()))) (leave-on-EPIPE (for-each (lambda (p) |