Skip to content
Snippets Groups Projects
Unverified Commit 39f6e930 authored by Mathieu Othacehe's avatar Mathieu Othacehe
Browse files

Expect nix-name and system to be part of the evaluation.

* src/cuirass/base.scm (evaluate): Expect 'nix-name and 'system properties to
be provided by the evaluation.
(build-packages): Use the eval-id provided as argument.
parent 4d7864c0
No related branches found
No related tags found
No related merge requests found
......@@ -310,14 +310,6 @@ fibers."
(define (evaluate store spec eval-id checkouts)
"Evaluate and build package derivations defined in SPEC, using CHECKOUTS.
Return a list of jobs that are associated to EVAL-ID."
(define (augment-job job)
(let ((drv (read-derivation-from-file
(assq-ref job #:derivation))))
`((#:eval-id . ,eval-id)
(#:nix-name . ,(derivation-name drv))
(#:system . ,(derivation-system drv))
,@job)))
(define log-file
(evaluation-log-file eval-id))
......@@ -369,7 +361,7 @@ Return a list of jobs that are associated to EVAL-ID."
(('evaluation jobs)
(let* ((spec-name (assq-ref spec #:name)))
(log-message "evaluation ~a for '~a' completed" eval-id spec-name)
(map augment-job jobs))))))
jobs)))))
;;;
......@@ -710,7 +702,6 @@ otherwise."
(define (register job)
(let* ((name (assq-ref job #:job-name))
(drv (assq-ref job #:derivation))
(eval-id (assq-ref job #:eval-id))
(job-name (assq-ref job #:job-name))
(system (assq-ref job #:system))
(nix-name (assq-ref job #:nix-name))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment