GNU bug report logs - #28486
[PATCH 2/3] gnu-system: Accept subset with list of package names.

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 28486 in the body.
You can then email your comments to 28486 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Jan Nieuwenhuizen <janneke <at> gnu.org>
To: guix-patches <at> gnu.org
Subject: [PATCH 2/3] gnu-system: Accept subset with list of package names.
Date: Sun, 17 Sep 2017 22:11:55 +0200

* examples/gnu-system.scm (hydra-jobs): Accept subset with list of package
names.
---
 examples/gnu-system.scm | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

diff --git a/examples/gnu-system.scm b/examples/gnu-system.scm
index 4076786..ee2b571 100644
--- a/examples/gnu-system.scm
+++ b/examples/gnu-system.scm
@@ -2,6 +2,7 @@
 ;;;
 ;;; Copyright © 2012, 2013, 2014, 2015, 2016 Ludovic Courtès <ludo <at> gnu.org>
 ;;; Copyright © 2016 Mathieu Lirzin <mthl <at> gnu.org>
+;;; Copyright © 2017 Jan Nieuwenhuizen <janneke <at> gnu.org>
 ;;;
 ;;; This file is part of Cuirass.
 ;;;
@@ -163,9 +164,10 @@ valid."
   "Return Hydra jobs."
   (define subset
     (match (assoc-ref arguments 'subset)
-      ("core" 'core)                    ; only build core packages
-      ("hello" 'hello)                  ; only build hello
-      (_ 'all)))                        ; build everything
+      ("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)
     (define (from-32-to-64? target)
@@ -226,6 +228,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)))
-- 
Jan Nieuwenhuizen <janneke <at> gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com

Message #10 received at 28486-done <at> debbugs.gnu.org (full text, mbox):

From: Jan Nieuwenhuizen <janneke <at> gnu.org>
To: help-debbugs <at> gnu.org (GNU bug Tracking System)
Cc: 28486-done <at> debbugs.gnu.org
Subject: Re: bug#28486: Acknowledgement ([PATCH 2/3] gnu-system: Accept subset
 with list of package names.)
Date: Mon, 18 Sep 2017 17:45:46 +0200

GNU bug Tracking System writes:

As discussed in other thread... pushed to master as bbab646926714ad6cdaac3e4578a14b408b65a84
janneke

-- 
Jan Nieuwenhuizen <janneke <at> gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.