hydra: Don't build non-substitutable packages.

* build-aux/hydra/gnu-system.scm (package->job): Compute PACKAGE's
derivation; return #f if 'substitutable-derivation?' returns #f.
This commit is contained in:
Ludovic Courtès 2017-06-15 22:45:43 +02:00
parent cbee955901
commit 82c955c0a5
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -245,7 +245,11 @@ (define package->job
(cond ((member package base-packages)
#f)
((supported-package? package system)
(package-job store (job-name package) package system))
(let ((drv (package-derivation store package system
#:graft? #f)))
(and (substitutable-derivation? drv)
(package-job store (job-name package)
package system))))
(else
#f)))))