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

Previous Next

Full log

View this message in rfc822 format

From: help-debbugs <at> gnu.org (GNU bug Tracking System)
To: Jan Nieuwenhuizen <janneke <at> gnu.org>
Cc: tracker <at> debbugs.gnu.org
Subject: bug#28486: closed ([PATCH 2/3] gnu-system: Accept subset with
 list of package names.)
Date: Mon, 18 Sep 2017 15:47:02 +0000

[Message part 1 (text/plain, inline)]

Your message dated Mon, 18 Sep 2017 17:45:46 +0200
with message-id <87o9q82eol.fsf <at> gnu.org>
and subject line Re: bug#28486: Acknowledgement ([PATCH 2/3] gnu-system: Accept subset with list of package names.)
has caused the debbugs.gnu.org bug report #28486,
regarding [PATCH 2/3] gnu-system: Accept subset with list of package names.
to be marked as done.

(If you believe you have received this mail in error, please contact
help-debbugs <at> gnu.org.)


-- 
28486: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=28486
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems

[Message part 2 (message/rfc822, inline)]

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 part 3 (message/rfc822, inline)]

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.