aboutsummaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-11-21 23:00:38 +0100
committerLudovic Courtès <ludo@gnu.org>2017-11-21 23:09:16 +0100
commit49961951c53df7728e77f69f7bbae88759ce51fb (patch)
tree36d545d01cbbd1e2497eded3a8068f00066787c5 /build-aux
parent5f93d97005897c2d859f0be1bdff34c88467ec61 (diff)
downloadguix-49961951c53df7728e77f69f7bbae88759ce51fb.tar
guix-49961951c53df7728e77f69f7bbae88759ce51fb.tar.gz
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'.
Diffstat (limited to 'build-aux')
-rw-r--r--build-aux/hydra/evaluate.scm9
1 files changed, 8 insertions, 1 deletions
diff --git a/build-aux/hydra/evaluate.scm b/build-aux/hydra/evaluate.scm
index 604022abcf..8e391f44fd 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)