02/02: cuirass: Support subset with list of address@hidden

[Jan Nieuwenhuizen]

janneke pushed a commit to branch master
in repository guix.

commit 516b53828e90018126b79e7600cae9aa531e06d7
Author: Jan Nieuwenhuizen <address@hidden>
Date:   Wed Sep 27 22:04:44 2017 +0200

    cuirass: Support subset with list of address@hidden
    
    * build-aux/hydra/gnu-system.scm (hydra-jobs): Support subset of
    packages: ("address@hidden" ...).
---
 build-aux/hydra/gnu-system.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm
index 8f97ab9..146d929 100644
--- a/build-aux/hydra/gnu-system.scm
+++ b/build-aux/hydra/gnu-system.scm
@@ -1,5 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Courtès 
<address@hidden>
+;;; Copyright © 2017 Jan Nieuwenhuizen <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -271,6 +272,7 @@ valid."
     (match (assoc-ref arguments 'subset)
       ("core" 'core)                              ; only build core packages
       ("hello" 'hello)                            ; only build hello
+      (((? string?) (? string?) ...) 'list)       ; only build selected list 
of packages
       (_ 'all)))                                  ; build everything
 
   (define (cross-jobs system)
@@ -347,6 +349,16 @@ valid."
                          (let ((hello (specification->package "hello")))
                            (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
                      (error "unknown subset" subset))))
                 %hydra-supported-systems)))