aboutsummaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-12-07 23:58:15 +0100
committerLudovic Courtès <ludo@gnu.org>2016-12-08 00:28:48 +0100
commita69bc7071ec05ed896dcc14f613c88023b6b2f80 (patch)
treebd6729c39241cebc34c0e3955731407218d923b8 /build-aux
parent530b8bda1f640ad0c222f0cddc9e15e4572fc459 (diff)
downloadguix-a69bc7071ec05ed896dcc14f613c88023b6b2f80.tar
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.
Diffstat (limited to 'build-aux')
-rw-r--r--build-aux/hydra/gnu-system.scm4
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)