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

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 98cda1b997442524ec8027fa1c1f9643eba6154b
Author: Ludovic Courtès <address@hidden>
Date:   Sun Apr 8 22:07:47 2018 +0200

    hydra: guix-modular: Honor the 'systems' argument.
    
    * build-aux/hydra/guix-modular.scm (hydra-jobs)[systems]: Define as in
    gnu-system.scm.
    Honor SYSTEMS.
---
 build-aux/hydra/guix-modular.scm | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/build-aux/hydra/guix-modular.scm b/build-aux/hydra/guix-modular.scm
index 2885759..58e09e1 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)))