ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

hydra: Really completely disable grafting.

Browse source 
This is a followup to 49c4fd2a.

* build-aux/hydra/gnu-system.scm (package->alist): Parameterize %graft?.
(qemu-jobs)[->job]: Likewise.
(tarball-jobs)[->job]: Likewise.
This commit is contained in:
Ludovic Courtès 2016-04-13 19:08:41 +02:00
parent 0de9813905
commit 9c3bb4c54d
1 changed files with 20 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
build-aux/hydra/gnu-system.scm
View file

@ -71,19 +71,20 @@
(define* (package->alist store package system (define* (package->alist store package system
#:optional (package-derivation package-derivation)) #:optional (package-derivation package-derivation))
"Convert PACKAGE to an alist suitable for Hydra." "Convert PACKAGE to an alist suitable for Hydra."
`((derivation . ,(derivation-file-name (parameterize ((%graft? #f))
(package-derivation store package system `((derivation . ,(derivation-file-name
#:graft? #f))) (package-derivation store package system
(description . ,(package-synopsis package)) #:graft? #f)))
(long-description . ,(package-description package)) (description . ,(package-synopsis package))
(license . ,(package-license package)) (long-description . ,(package-description package))
(home-page . ,(package-home-page package)) (license . ,(package-license package))
(maintainers . ("bug-guix@gnu.org")) (home-page . ,(package-home-page package))
(max-silent-time . ,(or (assoc-ref (package-properties package) (maintainers . ("bug-guix@gnu.org"))
'max-silent-time) (max-silent-time . ,(or (assoc-ref (package-properties package)
3600)) ; 1 hour by default 'max-silent-time)
(timeout . ,(or (assoc-ref (package-properties package) 'timeout) 3600)) ;1 hour by default
72000)))) ; 20 hours by default (timeout . ,(or (assoc-ref (package-properties package) 'timeout)
72000))))) ;20 hours by default
(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."
@ -142,7 +143,9 @@ (define (->alist drv)
(define (->job name drv) (define (->job name drv)
(let ((name (symbol-append name (string->symbol ".") (let ((name (symbol-append name (string->symbol ".")
(string->symbol system)))) (string->symbol system))))
`(,name . ,(cut ->alist drv)))) `(,name . ,(lambda ()
(parameterize ((%graft? #f))
(->alist drv))))))
(define MiB (define MiB
(expt 2 20)) (expt 2 20))
@ -178,7 +181,9 @@ (define (->alist drv)
(define (->job name drv) (define (->job name drv)
(let ((name (symbol-append name (string->symbol ".") (let ((name (symbol-append name (string->symbol ".")
(string->symbol system)))) (string->symbol system))))
`(,name . ,(cut ->alist drv)))) `(,name . ,(lambda ()
(parameterize ((%graft? #f))
(->alist drv))))))
;; XXX: Add a job for the stable Guix? ;; XXX: Add a job for the stable Guix?
(list (->job 'binary-tarball (list (->job 'binary-tarball