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: Completely disable grafting.

Browse source 
* build-aux/hydra/gnu-system.scm (hydra-jobs): Parameterize '%graft?'.
Build package replacements when they are available.
This commit is contained in:
Ludovic Courtès 2016-03-02 23:42:57 +01:00
parent f8187bde7f
commit 49c4fd2aab
1 changed files with 33 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -38,6 +38,7 @@
(use-modules (guix config)
(guix store)
(guix grafts)
(guix packages)
(guix derivations)
(guix monads)
@ -248,12 +249,21 @@ (define (either proc1 proc2)
%packages-to-cross-build))
(remove (either from-32-to-64? same?) %cross-targets)))
;; Turn off grafts. Grafting is meant to happen on the user's machines.
(parameterize ((%graft? #f))
;; Return one job for each package, except bootstrap packages.
(append-map (lambda (system)
(case subset
((all)
;; Build everything.
(let ((all (fold-packages cons '()))
;; Build everything, including replacements.
(let ((all (fold-packages
(lambda (package result)
(if (package-replacement package)
(cons* package
(package-replacement package)
result)
(cons package result)))
'()))
(job (lambda (package)
(package->job store package
system))))
@ -270,4 +280,4 @@ (define (either proc1 proc2)
(cross-jobs system)))
(else
(error "unknown subset" subset))))
%hydra-supported-systems))
%hydra-supported-systems)))