diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-07-16 09:59:25 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-07-16 09:59:25 +0200 |
| commit | 195e81aa5260bab340cbafe42bc3192b23d38505 (patch) | |
| tree | 2c534f1c150d15c348234c130e5c023f9af115eb | |
| parent | 4b7f3407e97e4ca66f7d58a3515f423f03c671ab (diff) | |
| download | guix-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.scm | 7 |
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 <>)))) |