me
/
guix
Archived
1
0
Fork 0
Code

hydra: Make the list of target systems a parameter. 

* build-aux/hydra/gnu-system.scm (hydra-jobs): Define 'systems' and use
it.
master
Ludovic Courtès 2018-01-21 01:42:59 +01:00
parent 6915da225f
commit c0fda0b0df
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,5 @@
;;; 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, 2018 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -297,6 +297,12 @@ valid."
(((? string?) (? string?) ...) 'list) ; only build selected list of packages (((? string?) (? string?) ...) 'list) ; only build selected list of packages
(_ 'all))) ; build everything (_ 'all))) ; build everything
(define systems
(match (assoc-ref arguments 'systems)
(#f %hydra-supported-systems)
((lst ...) lst)
((? string? str) (call-with-input-string str read))))
(define (cross-jobs system) (define (cross-jobs system)
(define (from-32-to-64? target) (define (from-32-to-64? target)
;; Return true if SYSTEM is 32-bit and TARGET is 64-bit. This hack ;; Return true if SYSTEM is 32-bit and TARGET is 64-bit. This hack
@ -387,4 +393,4 @@ valid."
'())) '()))
(else (else
(error "unknown subset" subset)))) (error "unknown subset" subset))))
%hydra-supported-systems))) systems)))