[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: hydra: bayfront: Don't build non-substitutable packages.
From: |
Ludovic Courtès |
Subject: |
01/01: hydra: bayfront: Don't build non-substitutable packages. |
Date: |
Thu, 15 Jun 2017 17:07:33 -0400 (EDT) |
civodul pushed a commit to branch master
in repository maintenance.
commit 0a8c38269f02f8bce125d2c11de3e8e7bb950f04
Author: Ludovic Courtès <address@hidden>
Date: Thu Jun 15 22:52:16 2017 +0200
hydra: bayfront: Don't build non-substitutable packages.
* hydra/cuirass-jobs.scm (package->job): Compute PACKAGE's
derivation; return #f if 'substitutable-derivation?' returns #f.
---
hydra/cuirass-jobs.scm | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/hydra/cuirass-jobs.scm b/hydra/cuirass-jobs.scm
index 19189a7..04854f6 100644
--- a/hydra/cuirass-jobs.scm
+++ b/hydra/cuirass-jobs.scm
@@ -159,7 +159,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)))))