[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: ci: Add channel subset support.
From: |
guix-commits |
Subject: |
branch master updated: ci: Add channel subset support. |
Date: |
Sun, 14 Mar 2021 13:19:49 -0400 |
This is an automated email from the git hooks/post-receive script.
mothacehe pushed a commit to branch master
in repository guix.
The following commit(s) were added to refs/heads/master by this push:
new 61a1165 ci: Add channel subset support.
61a1165 is described below
commit 61a1165340a8bcc45550259edca25275d899fe09
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Sun Mar 14 18:19:16 2021 +0100
ci: Add channel subset support.
* gnu/ci.scm (cuirass-jobs): Add channel subset support.
---
gnu/ci.scm | 12 ++++++++++++
1 file changed, 12 insertions(+)
diff --git a/gnu/ci.scm b/gnu/ci.scm
index 6edcdd0..664cabf 100644
--- a/gnu/ci.scm
+++ b/gnu/ci.scm
@@ -23,6 +23,7 @@
(define-module (gnu ci)
#:use-module (guix channels)
#:use-module (guix config)
+ #:use-module (guix describe)
#:use-module (guix store)
#:use-module (guix grafts)
#:use-module (guix profiles)
@@ -521,6 +522,17 @@ valid."
(let ((hello (specification->package "hello")))
(list (package-job store (job-name hello)
hello system))))
+ (('channels . channels)
+ ;; Build only the packages from CHANNELS.
+ (let ((all (all-packages)))
+ (filter-map
+ (lambda (package)
+ (match (package-channels package)
+ ((channel . _)
+ (and (member (channel-name channel) channels)
+ (package->job store package system)))
+ (else #f)))
+ all)))
(('packages . rest)
;; Build selected list of packages only.
(let ((packages (map specification->package rest)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: ci: Add channel subset support.,
guix-commits <=