[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
06/07: hydra: 'evaluate' passes an alist to the entry point.
From: |
Ludovic Courtès |
Subject: |
06/07: hydra: 'evaluate' passes an alist to the entry point. |
Date: |
Tue, 21 Nov 2017 17:13:52 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit 49961951c53df7728e77f69f7bbae88759ce51fb
Author: Ludovic Courtès <address@hidden>
Date: Tue Nov 21 23:00:38 2017 +0100
hydra: 'evaluate' passes an alist to the entry point.
* build-aux/hydra/evaluate.scm (%top-srcdir): New variable.
<top level>: Pass it to 'hydra-jobs'.
---
build-aux/hydra/evaluate.scm | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/build-aux/hydra/evaluate.scm b/build-aux/hydra/evaluate.scm
index 604022a..8e391f4 100644
--- a/build-aux/hydra/evaluate.scm
+++ b/build-aux/hydra/evaluate.scm
@@ -27,6 +27,12 @@
(ice-9 pretty-print)
(ice-9 format))
+(define %top-srcdir
+ (and=> (assq-ref (current-source-location) 'filename)
+ (lambda (file)
+ (canonicalize-path
+ (string-append (dirname file) "/../..")))))
+
(define %user-module
;; Hydra user module.
(let ((m (make-module)))
@@ -101,7 +107,8 @@ Otherwise return THING."
(if (equal? cuirass? "cuirass")
'cuirass-jobs
'hydra-jobs))
- store '())
+ store `((guix
+ . ((file-name . ,%top-srcdir)))))
(((names . thunks) ...)
(map (lambda (job thunk)
(format (current-error-port) "evaluating '~a'... " job)
- branch master updated (5c1f38b -> 11a54b3), Ludovic Courtès, 2017/11/21
- 01/07: union: Parametrize the symlink procedure ., Ludovic Courtès, 2017/11/21
- 02/07: gexp: 'directory-union' has a #:quiet? parameter., Ludovic Courtès, 2017/11/21
- 04/07: git: Do not add '.git' to the store., Ludovic Courtès, 2017/11/21
- 03/07: pull: Trim import list., Ludovic Courtès, 2017/11/21
- 06/07: hydra: 'evaluate' passes an alist to the entry point.,
Ludovic Courtès <=
- 07/07: hydra: Add jobs for the modular Guix., Ludovic Courtès, 2017/11/21
- 05/07: Add (guix self) and use it when pulling., Ludovic Courtès, 2017/11/21