nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
This commit is contained in:
Ludovic Courtès 2013-07-16 09:59:25 +02:00
parent 4b7f3407e9
commit 195e81aa52
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
build-aux/hydra/gnu-system.scm
View File

@ -67,12 +67,15 @@
(define (package-job store job-name package system) (define (package-job store job-name package system)
"Return a job called JOB-NAME that builds PACKAGE on 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) (define (package-cross-job store job-name package target system)
"Return a job called TARGET.JOB-NAME that cross-builds PACKAGE for TARGET on "Return a job called TARGET.JOB-NAME that cross-builds PACKAGE for TARGET on
SYSTEM." 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 ,(cute package->alist store package system
(cut package-cross-derivation <> <> target <>)))) (cut package-cross-derivation <> <> target <>))))