summaryrefslogtreecommitdiff
path: root/bin/cuirass.in
diff options
context:
space:
mode:
Diffstat (limited to 'bin/cuirass.in')
-rw-r--r--bin/cuirass.in14
1 files changed, 6 insertions, 8 deletions
diff --git a/bin/cuirass.in b/bin/cuirass.in
index 2c0e4c8..8eaf842 100644
--- a/bin/cuirass.in
+++ b/bin/cuirass.in
@@ -91,15 +91,13 @@ DIR if required."
(format #t "prepending ~s to the load path~%" guixdir)
(set! %load-path (cons guixdir %load-path)))
(primitive-load spec)))
- (match ((module-ref %user-module 'hydra-jobs) store '())
- (((names . thunks) ...)
- (map (lambda (job thunk)
- (format (current-error-port) "evaluating '~a'... " job)
+ (let ((job-specs ((module-ref %user-module 'hydra-jobs) store '())))
+ (map (match-lambda
+ (($ <job-spec> name thunk metadata)
+ (format (current-error-port) "evaluating '~a'... " name)
(force-output (current-error-port))
- (make-job (symbol->string job)
- (assoc-ref (call-with-time-display thunk)
- 'derivation)))
- names thunks))))
+ (make-job name (call-with-time-display thunk) metadata)))
+ job-specs)))
;;;