diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-04-08 22:07:47 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-04-08 22:07:47 +0200 |
| commit | 98cda1b997442524ec8027fa1c1f9643eba6154b (patch) | |
| tree | 685de333da66a56f0deb4d85d7f506a4515b2b98 /build-aux/hydra | |
| parent | f27a7128406f768fc8900144cafafe00aa2d7743 (diff) | |
| download | guix-98cda1b997442524ec8027fa1c1f9643eba6154b.tar guix-98cda1b997442524ec8027fa1c1f9643eba6154b.tar.gz | |
hydra: guix-modular: Honor the 'systems' argument.
* build-aux/hydra/guix-modular.scm (hydra-jobs)[systems]: Define as in
gnu-system.scm.
Honor SYSTEMS.
Diffstat (limited to 'build-aux/hydra')
| -rw-r--r-- | build-aux/hydra/guix-modular.scm | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/build-aux/hydra/guix-modular.scm b/build-aux/hydra/guix-modular.scm index 2885759df0..58e09e1831 100644 --- a/build-aux/hydra/guix-modular.scm +++ b/build-aux/hydra/guix-modular.scm @@ -57,14 +57,10 @@ for SYSTEM. Use VERSION as the version identifier." (define (hydra-jobs store arguments) "Return Hydra jobs." (define systems - (match (filter-map (match-lambda - (('system . value) value) - (_ #f)) - arguments) - ((lst ..1) - lst) - (_ - (list (%current-system))))) + (match (assoc-ref arguments 'systems) + (#f %hydra-supported-systems) + ((lst ...) lst) + ((? string? str) (call-with-input-string str read)))) (define guix-checkout (or (assq-ref arguments 'guix) ;Hydra on hydra @@ -83,4 +79,4 @@ for SYSTEM. Use VERSION as the version identifier." (string-append "guix." system)))) `(,name . ,(build-job store file version system)))) - %hydra-supported-systems))) + systems))) |