diff options
author | Ludovic Courtès <ludo@gnu.org> | 2016-12-07 23:58:15 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2016-12-08 00:28:48 +0100 |
commit | a69bc7071ec05ed896dcc14f613c88023b6b2f80 (patch) | |
tree | bd6729c39241cebc34c0e3955731407218d923b8 | |
parent | 530b8bda1f640ad0c222f0cddc9e15e4572fc459 (diff) | |
download | guix-a69bc7071ec05ed896dcc14f613c88023b6b2f80.tar.gz |
hydra: Fix wrong-num-args error when computing the cross jobs.
Fixes a regression introduced in dea91108cf6b9bb46071c8f65c9abf834c5b064d. * build-aux/hydra/gnu-system.scm (hydra-jobs)[cross-jobs](either): Add third parameter and honor it.
-rw-r--r-- | build-aux/hydra/gnu-system.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm index 9ad8c8a94d..cddda85eac 100644 --- a/build-aux/hydra/gnu-system.scm +++ b/build-aux/hydra/gnu-system.scm @@ -283,9 +283,9 @@ valid." (and (string-contains target "mingw") (not (string=? "x86_64-linux" system)))) - (define (either proc1 proc2) + (define (either proc1 proc2 proc3) (lambda (x) - (or (proc1 x) (proc2 x)))) + (or (proc1 x) (proc2 x) (proc3 x)))) (append-map (lambda (target) (map (lambda (package) |