ci: Support packages with multiple channels.

This is a follow-up of 61a1165340. For packages
provided by external channels, package-channels procedure will return at least
two channels. Take it into account.

* gnu/ci.scm (cuirass-jobs): Fix channels subset argument.
This commit is contained in:
Mathieu Othacehe 2021-03-14 19:30:36 +01:00
parent b76762a9b7
commit cbfcbb79df
No known key found for this signature in database
GPG key ID: 8354763531769CA6

View file

@ -527,11 +527,10 @@ (define source
(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)))
(any (lambda (channel)
(and (member (channel-name channel) channels)
(package->job store package system)))
(package-channels package)))
all)))
(('packages . rest)
;; Build selected list of packages only.