aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-03-30 23:46:07 +0200
committerLudovic Courtès <ludo@gnu.org>2017-03-30 23:46:07 +0200
commit6f9f01fbf616c5f133d8641a9414fd53eefd4d07 (patch)
tree3f1bbe12aee1a148f296581e3e64fdab75f4a119
parentdca96ad39567a0f66bdfe77ded301ec98ea9fc7e (diff)
downloadguix-6f9f01fbf616c5f133d8641a9414fd53eefd4d07.tar
guix-6f9f01fbf616c5f133d8641a9414fd53eefd4d07.tar.gz
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'.
-rw-r--r--build-aux/hydra/gnu-system.scm13
1 files 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 @@ 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