diff options
author | Mathieu Othacehe <othacehe@gnu.org> | 2020-10-01 13:16:03 +0200 |
---|---|---|
committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-10-01 13:18:46 +0200 |
commit | 39f6e930ba490c652d53e1efe68e4c896f6d1bd7 (patch) | |
tree | 301bad2c9014295aa6890c3cea4cc373c43826c3 /src | |
parent | 4d7864c0465fda9bb9f2d00de2f0ca0fd6a75ff0 (diff) | |
download | cuirass-39f6e930ba490c652d53e1efe68e4c896f6d1bd7.tar cuirass-39f6e930ba490c652d53e1efe68e4c896f6d1bd7.tar.gz |
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.
Diffstat (limited to 'src')
-rw-r--r-- | src/cuirass/base.scm | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm index 9b9d89f..d672177 100644 --- a/src/cuirass/base.scm +++ b/src/cuirass/base.scm @@ -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)) |