Skip to content
Snippets Groups Projects
Unverified Commit db2785cd authored by Jan (janneke) Nieuwenhuizen's avatar Jan (janneke) Nieuwenhuizen
Browse files

ci: Remove native-system restriction from "hello" and "list" jobsets.


* gnu/ci.scm (hydra-jobs): Remove restriction for system to
equal (%current-system).

Co-authored-by: default avatarLudovic Courtès <ludo@gnu.org>
parent 67ad1e14
No related branches found
No related tags found
No related merge requests found
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2017, 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2018, 2019 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2018, 2019 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu> ;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu>
;;; ;;;
...@@ -511,20 +511,16 @@ (define source ...@@ -511,20 +511,16 @@ (define source
(cross-jobs store system))) (cross-jobs store system)))
((hello) ((hello)
;; Build hello package only. ;; Build hello package only.
(if (string=? system (%current-system)) (let ((hello (specification->package "hello")))
(let ((hello (specification->package "hello"))) (list (package-job store (job-name hello) hello system))))
(list (package-job store (job-name hello) hello system)))
'()))
((list) ((list)
;; Build selected list of packages only. ;; Build selected list of packages only.
(if (string=? system (%current-system)) (let* ((names (assoc-ref arguments 'subset))
(let* ((names (assoc-ref arguments 'subset)) (packages (map specification->package names)))
(packages (map specification->package names))) (map (lambda (package)
(map (lambda (package) (package-job store (job-name package)
(package-job store (job-name package) package system))
package system)) packages)))
packages))
'()))
((manifests) ((manifests)
;; Build packages in the list of manifests. ;; Build packages in the list of manifests.
(let* ((manifests (arguments->manifests arguments)) (let* ((manifests (arguments->manifests arguments))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment