[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: hydra: Don't build deprecated packages.
From: |
Ludovic Courtès |
Subject: |
01/01: hydra: Don't build deprecated packages. |
Date: |
Thu, 30 Mar 2017 17:58:23 -0400 (EDT) |
civodul pushed a commit to branch core-updates
in repository guix.
commit 6f9f01fbf616c5f133d8641a9414fd53eefd4d07
Author: Ludovic Courtès <address@hidden>
Date: Thu Mar 30 23:46:07 2017 +0200
hydra: Don't build deprecated packages.
* build-aux/hydra/gnu-system.scm (hydra-jobs): When iterating over the
packages, exclude those that match 'package-superseded'.
---
build-aux/hydra/gnu-system.scm | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm
index 0976ff7..507c6ab 100644
--- a/build-aux/hydra/gnu-system.scm
+++ b/build-aux/hydra/gnu-system.scm
@@ -305,11 +305,14 @@ valid."
;; Build everything, including replacements.
(let ((all (fold-packages
(lambda (package result)
- (if (package-replacement package)
- (cons* package
- (package-replacement package)
- result)
- (cons package result)))
+ (cond ((package-replacement package)
+ (cons* package
+ (package-replacement package)
+ result))
+ ((package-superseded package)
+ result) ;don't build it
+ (else
+ (cons package result))))
'()))
(job (lambda (package)
(package->job store package