summaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-06-15 22:45:43 +0200
committerLudovic Courtès <ludo@gnu.org>2017-06-15 23:07:47 +0200
commit82c955c0a5aefb5f15e42ad012a31867458b281b (patch)
tree3ae2cfe1be0e9a32d368d574774cae479d21b937 /build-aux
parentcbee955901b3e252ebdeb8066a2196055149198a (diff)
downloadpatches-82c955c0a5aefb5f15e42ad012a31867458b281b.tar
patches-82c955c0a5aefb5f15e42ad012a31867458b281b.tar.gz
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.
Diffstat (limited to 'build-aux')
-rw-r--r--build-aux/hydra/gnu-system.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm
index b1faa2265a..eeb7183a4f 100644
--- a/build-aux/hydra/gnu-system.scm
+++ b/build-aux/hydra/gnu-system.scm
@@ -245,7 +245,11 @@ valid."
(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)))))