nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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'.
This commit is contained in:
Ludovic Courtès 2017-11-21 23:00:38 +01:00
parent 5f93d97005
commit 49961951c5
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
build-aux/hydra/evaluate.scm
View File

@ -27,6 +27,12 @@
(ice-9 pretty-print) (ice-9 pretty-print)
(ice-9 format)) (ice-9 format))
(define %top-srcdir
(and=> (assq-ref (current-source-location) 'filename)
(lambda (file)
(canonicalize-path
(string-append (dirname file) "/../..")))))
(define %user-module (define %user-module
;; Hydra user module. ;; Hydra user module.
(let ((m (make-module))) (let ((m (make-module)))
@ -101,7 +107,8 @@ Otherwise return THING."
(if (equal? cuirass? "cuirass") (if (equal? cuirass? "cuirass")
'cuirass-jobs 'cuirass-jobs
'hydra-jobs)) 'hydra-jobs))
store '()) store `((guix
. ((file-name . ,%top-srcdir)))))
(((names . thunks) ...) (((names . thunks) ...)
(map (lambda (job thunk) (map (lambda (job thunk)
(format (current-error-port) "evaluating '~a'... " job) (format (current-error-port) "evaluating '~a'... " job)