From 6f9f01fbf616c5f133d8641a9414fd53eefd4d07 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 30 Mar 2017 23:46:07 +0200 Subject: 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 0976ff7304..507c6abe0e 100644 --- a/build-aux/hydra/gnu-system.scm +++ b/build-aux/hydra/gnu-system.scm @@ -305,11 +305,14 @@ (define (either proc1 proc2 proc3) ;; 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 -- cgit v1.2.3