diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-06-15 22:45:43 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-06-15 23:07:47 +0200 |
| commit | 82c955c0a5aefb5f15e42ad012a31867458b281b (patch) | |
| tree | 3ae2cfe1be0e9a32d368d574774cae479d21b937 | |
| parent | cbee955901b3e252ebdeb8066a2196055149198a (diff) | |
| download | guix-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.
| -rw-r--r-- | build-aux/hydra/gnu-system.scm | 6 |
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))))) |