[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/11: hydra: Factorize package list creation.
From: |
Ludovic Courtès |
Subject: |
01/11: hydra: Factorize package list creation. |
Date: |
Tue, 7 Nov 2017 12:12:06 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit b5033c5a9e1b1f06a7daf9b8de6ff9f9c8431a97
Author: Ludovic Courtès <address@hidden>
Date: Tue Nov 7 17:06:32 2017 +0100
hydra: Factorize package list creation.
* build-aux/hydra/gnu-system.scm (all-packages): New procedure, with
body taken from...
(hydra-jobs): ... here. Use it.
---
build-aux/hydra/gnu-system.scm | 25 ++++++++++++++-----------
1 file changed, 14 insertions(+), 11 deletions(-)
diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm
index 146d929..1782969 100644
--- a/build-aux/hydra/gnu-system.scm
+++ b/build-aux/hydra/gnu-system.scm
@@ -261,6 +261,19 @@ valid."
(else
#f)))))
+(define (all-packages)
+ "Return the list of packages to build."
+ (fold-packages (lambda (package result)
+ (cond ((package-replacement package)
+ (cons* package ;build both
+ (package-replacement package)
+ result))
+ ((package-superseded package)
+ result) ;don't build it
+ (else
+ (cons package result))))
+ '()))
+
;;;
;;; Hydra entry point.
@@ -317,17 +330,7 @@ valid."
(case subset
((all)
;; Build everything, including replacements.
- (let ((all (fold-packages
- (lambda (package result)
- (cond ((package-replacement package)
- (cons* package
- (package-replacement package)
- result))
- ((package-superseded package)
- result) ;don't build it
- (else
- (cons package result))))
- '()))
+ (let ((all (all-packages))
(job (lambda (package)
(package->job store package
system))))
- branch master updated (ad54924 -> b574cee), Ludovic Courtès, 2017/11/07
- 01/11: hydra: Factorize package list creation.,
Ludovic Courtès <=
- 06/11: gnu: awesome: Update to 4.2., Ludovic Courtès, 2017/11/07
- 02/11: hydra: Build hidden packages., Ludovic Courtès, 2017/11/07
- 03/11: gnu: gdm: Fix config file path., Ludovic Courtès, 2017/11/07
- 08/11: gnu: Add PSM., Ludovic Courtès, 2017/11/07
- 04/11: gnu: gdm: Add configure flags for better defaults., Ludovic Courtès, 2017/11/07
- 07/11: gnu: diffoscope: Update to 88., Ludovic Courtès, 2017/11/07
- 09/11: gnu: libfabric: Add dependency on PSM., Ludovic Courtès, 2017/11/07
- 11/11: hydra: Add jobs for all of '%final-inputs'., Ludovic Courtès, 2017/11/07
- 05/11: services: gdm: Add environment variables., Ludovic Courtès, 2017/11/07
- 10/11: gnu: openmpi: Add dependency on PSM., Ludovic Courtès, 2017/11/07