aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-07-16 09:59:25 +0200
committerLudovic Courtès <ludo@gnu.org>2013-07-16 09:59:25 +0200
commit195e81aa5260bab340cbafe42bc3192b23d38505 (patch)
tree2c534f1c150d15c348234c130e5c023f9af115eb
parent4b7f3407e97e4ca66f7d58a3515f423f03c671ab (diff)
downloadguix-195e81aa5260bab340cbafe42bc3192b23d38505.tar
guix-195e81aa5260bab340cbafe42bc3192b23d38505.tar.gz
hydra: Distinguish between jobs for different system types.
* build-aux/hydra/gnu-system.scm (package-job, package-cross-job): Append `.SYSTEM' to the job name.
-rw-r--r--build-aux/hydra/gnu-system.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm
index 57f98dfa33..6518f2b4aa 100644
--- a/build-aux/hydra/gnu-system.scm
+++ b/build-aux/hydra/gnu-system.scm
@@ -67,12 +67,15 @@
(define (package-job store job-name package system)
"Return a job called JOB-NAME that builds PACKAGE on SYSTEM."
- `(,job-name . ,(cut package->alist store package system)))
+ (let ((job-name (symbol-append job-name (string->symbol ".")
+ (string->symbol system))))
+ `(,job-name . ,(cut package->alist store package system))))
(define (package-cross-job store job-name package target system)
"Return a job called TARGET.JOB-NAME that cross-builds PACKAGE for TARGET on
SYSTEM."
- `(,(symbol-append (string->symbol target) (string->symbol ".") job-name) .
+ `(,(symbol-append (string->symbol target) (string->symbol ".") job-name
+ (string->symbol ".") (string->symbol system)) .
,(cute package->alist store package system
(cut package-cross-derivation <> <> target <>))))