nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

hydra: guix-modular: Honor the 'systems' argument. 

* build-aux/hydra/guix-modular.scm (hydra-jobs)[systems]: Define as in
gnu-system.scm.
Honor SYSTEMS.
This commit is contained in:
Ludovic Courtès 2018-04-08 22:07:47 +02:00
parent f27a712840
commit 98cda1b997
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
build-aux/hydra/guix-modular.scm
View File

@ -57,14 +57,10 @@ for SYSTEM. Use VERSION as the version identifier."
(define (hydra-jobs store arguments) (define (hydra-jobs store arguments)
"Return Hydra jobs." "Return Hydra jobs."
(define systems (define systems
(match (filter-map (match-lambda (match (assoc-ref arguments 'systems)
(('system . value) value) (#f %hydra-supported-systems)
(_ #f)) ((lst ...) lst)
arguments) ((? string? str) (call-with-input-string str read))))
((lst ..1)
lst)
(_
(list (%current-system)))))
(define guix-checkout (define guix-checkout
(or (assq-ref arguments 'guix) ;Hydra on hydra (or (assq-ref arguments 'guix) ;Hydra on hydra
@ -83,4 +79,4 @@ for SYSTEM. Use VERSION as the version identifier."
(string-append "guix." system)))) (string-append "guix." system))))
`(,name `(,name
. ,(build-job store file version system)))) . ,(build-job store file version system))))
%hydra-supported-systems))) systems)))