~ruther/guix-local: hydra: Don't build non-substitutable packages.

82c955c0a5aefb5f15e42ad012a31867458b281b — Ludovic Courtès 8 years ago cbee955

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.

patch browse .tar.gz

1 files changed, 5 insertions(+), 1 deletions(-)

M build-aux/hydra/gnu-system.scm

M build-aux/hydra/gnu-system.scm => build-aux/hydra/gnu-system.scm +5 -1

@@ 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)))))