guix_mirror_bot pushed a commit to branch rust-team
in repository guix.
commit fc2231f6e1364eff91c91ccdf7c923bd12c366db
Author: Efraim Flashner <[email protected]>
AuthorDate: Mon Feb 16 10:50:23 2026 +0200
teams: rust: Limit manifests to supported packages.
* etc/teams/rust/rust-manifest.scm, etc/teams/rust/rusty-packages.scm:
Limit the manifests to packages which are supported on that
architecture.
Change-Id: I85b6f2a81835c961e9d320e94141eb273e99f9ba
---
etc/teams/rust/rust-manifest.scm | 11 ++++++-----
etc/teams/rust/rusty-packages.scm | 31 +++++++++++++++----------------
2 files changed, 21 insertions(+), 21 deletions(-)
diff --git a/etc/teams/rust/rust-manifest.scm b/etc/teams/rust/rust-manifest.scm
index f34b7489ec..40f031f401 100644
--- a/etc/teams/rust/rust-manifest.scm
+++ b/etc/teams/rust/rust-manifest.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2024 Efraim Flashner <[email protected]>
+;;; Copyright © 2024, 2026 Efraim Flashner <[email protected]>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -27,8 +27,9 @@
(map package->manifest-entry
(fold-packages
(lambda (package lst)
- (if (eq? (build-system-name (package-build-system package))
- (quote cargo))
- (cons package lst)
- lst))
+ (if (and (eq? (build-system-name (package-build-system package))
+ (quote cargo))
+ (supported-package? package))
+ (cons package lst)
+ lst))
(list))))
diff --git a/etc/teams/rust/rusty-packages.scm
b/etc/teams/rust/rusty-packages.scm
index 3f8285f40a..4bef448a3c 100644
--- a/etc/teams/rust/rusty-packages.scm
+++ b/etc/teams/rust/rusty-packages.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2024 Efraim Flashner <[email protected]>
+;;; Copyright © 2024, 2026 Efraim Flashner <[email protected]>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -17,10 +17,9 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
;;; This file returns a manifest of packages built using the cargo-build-system
-;;; which are NOT prefixed with 'rust-' and the packages which use rust itself
-;;; as an input. This is a short list of packages which can be checked to see
-;;; if a rust update has gone smoothly. It is used to assist continuous
-;;; integration of the rust-team branch.
+;;; and the packages which use rust itself as an input. This is a short list
of
+;;; packages which can be checked to see if a rust update has gone smoothly.
It
+;;; is used to assist continuous integration of the rust-team branch.
(use-modules (guix packages)
(guix profiles)
@@ -31,15 +30,15 @@
(map package->manifest-entry
(fold-packages
(lambda (package lst)
- (if (or
- (eq? (build-system-name (package-build-system package))
- (quote cargo))
- (any
- (lambda (pkg)
- (member (specification->package "rust") pkg))
- (append (package-native-inputs package)
- (package-propagated-inputs package)
- (package-inputs package))))
- (cons package lst)
- lst))
+ (if (and (supported-package? package)
+ (or (eq? (build-system-name (package-build-system package))
+ (quote cargo))
+ (any
+ (lambda (pkg)
+ (member (specification->package "rust") pkg))
+ (append (package-native-inputs package)
+ (package-propagated-inputs package)
+ (package-inputs package)))))
+ (cons package lst)
+ lst))
(list))))
