* build-aux/hydra/evaluate.scm (%top-srcdir): New variable.
<top level>: Pass it to 'hydra-jobs'.
(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)))
(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)