nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cuirass: Support subset with list of package[@version]. 

* build-aux/hydra/gnu-system.scm (hydra-jobs): Support subset of
packages: ("name[@version" ...).
This commit is contained in:
Jan Nieuwenhuizen 2017-09-27 22:04:44 +02:00
parent 66bc1d2aaf
commit 516b53828e
No known key found for this signature in database
GPG Key ID: A12F87978D701B99
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
build-aux/hydra/gnu-system.scm
View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -271,6 +272,7 @@ valid."
(match (assoc-ref arguments 'subset) (match (assoc-ref arguments 'subset)
("core" 'core) ; only build core packages ("core" 'core) ; only build core packages
("hello" 'hello) ; only build hello ("hello" 'hello) ; only build hello
(((? string?) (? string?) ...) 'list) ; only build selected list of packages
(_ 'all))) ; build everything (_ 'all))) ; build everything
(define (cross-jobs system) (define (cross-jobs system)
@ -347,6 +349,16 @@ valid."
(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)
;; Build selected list of packages only.
(if (string=? system (%current-system))
(let* ((names (assoc-ref arguments 'subset))
(packages (map specification->package names)))
(map (lambda (package)
(package-job store (job-name package)
package system))
packages))
'()))
(else (else
(error "unknown subset" subset)))) (error "unknown subset" subset))))
%hydra-supported-systems))) %hydra-supported-systems)))