diff options
Diffstat (limited to 'src/cuirass/base.scm')
| -rw-r--r-- | src/cuirass/base.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm index d642b9f..baf8909 100644 --- a/src/cuirass/base.scm +++ b/src/cuirass/base.scm @@ -121,19 +121,21 @@ if required." (map (λ (job) (let ((log-port (%make-void-port "w0")) (name (assq-ref job #:job-name)) - (drv (assq-ref job #:derivation))) + (drv (assq-ref job #:derivation)) + (eval-id (assq-ref job #:eval-id))) (simple-format #t "building ~A...\n" drv) (parameterize ((current-build-output-port log-port)) (build-derivations store (list drv)) (let* ((output (derivation-path->output-path drv)) (log (log-file store output)) (build `((#:derivation . ,drv) + (#:eval-id . ,eval-id) (#:log . ,log) - (#:output . ,output))) - (id (db-add-build db build))) - (close-port log-port) + (#:output . ,output)))) + (db-add-build db build) (simple-format #t "~A\n" output) - (acons #:id id build))))) + (close-port log-port) + build)))) jobs)) (define (process-specs db jobspecs) |