diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-11-21 23:00:38 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-11-21 23:09:16 +0100 |
| commit | 49961951c53df7728e77f69f7bbae88759ce51fb (patch) | |
| tree | 36d545d01cbbd1e2497eded3a8068f00066787c5 | |
| parent | 5f93d97005897c2d859f0be1bdff34c88467ec61 (diff) | |
| download | 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'.
| -rw-r--r-- | build-aux/hydra/evaluate.scm | 9 |
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) |