aboutsummaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
Diffstat (limited to 'guix')
-rw-r--r--guix/scripts/package.scm12
-rw-r--r--guix/ui.scm2
2 files changed, 9 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)
diff --git a/guix/ui.scm b/guix/ui.scm
index 5ca5afe457..f80ce37146 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -653,6 +653,8 @@ WIDTH columns."
;; Note: Don't i18n field names so that people can post-process it.
(format port "name: ~a~%" (package-name p))
(format port "version: ~a~%" (package-version p))
+ (format port "systems: ~a~%"
+ (string-join (package-transitive-supported-systems p)))
(format port "dependencies: ~a~%"
(match (package-direct-inputs p)
(((labels inputs . _) ...)