[debbugs-tracker] bug#28486: closed ([PATCH 2/3] gnu-system: Accept subset with list of package names.)

[GNU bug Tracking System]

Your message dated Mon, 18 Sep 2017 17:45:46 +0200
with message-id <address@hidden>
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
address@hidden)


-- 
28486: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=28486
GNU Bug Tracking System
Contact address@hidden with problems
> --- Begin Message ---
>
>
>
> 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 <address@hidden>
>  ;;; Copyright © 2016 Mathieu Lirzin <address@hidden>
> +;;; Copyright © 2017 Jan Nieuwenhuizen <address@hidden>
>  ;;;
>  ;;; 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 <address@hidden> | GNU LilyPond http://lilypond.org
> Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com
>
>
>
>
> --- End Message ---
> --- Begin Message ---
>
>
>
> 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
>
>
>
>
> User-agent: 
>
> Gnus/5.13 (Gnus v5.13) Emacs/25.2 (gnu/linux)
>
>
>
>
> GNU bug Tracking System writes:
>
> As discussed in other thread... pushed to master as 
> bbab646926714ad6cdaac3e4578a14b408b65a84
> janneke
>
> -- 
> Jan Nieuwenhuizen <address@hidden> | GNU LilyPond http://lilypond.org
> Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com
>
>
> --- End Message ---