diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-03-30 23:46:07 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-03-30 23:46:07 +0200 |
| commit | 6f9f01fbf616c5f133d8641a9414fd53eefd4d07 (patch) | |
| tree | 3f1bbe12aee1a148f296581e3e64fdab75f4a119 | |
| parent | dca96ad39567a0f66bdfe77ded301ec98ea9fc7e (diff) | |
| download | guix-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.scm | 13 |
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 |