~ruther/guix-local: hydra: Distinguish between jobs for different system types.

195e81aa5260bab340cbafe42bc3192b23d38505 — Ludovic Courtès 12 years ago 4b7f340

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.

patch browse .tar.gz

1 files changed, 5 insertions(+), 2 deletions(-)

M build-aux/hydra/gnu-system.scm

M build-aux/hydra/gnu-system.scm => build-aux/hydra/gnu-system.scm +5 -2

@@ 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 <>))))