base: 'spawn-builds' really builds by chunks.
Fixes a regression introduced in
074b9d02f1
whereby we'd attempt to build
all of DRV at once.
* src/cuirass/base.scm (spawn-builds): Pass BATCH, not DRV, to
'build-derivations&' and to 'update-build-statuses!'.
This commit is contained in:
parent
297b29190e
commit
2f37403606
|
@ -448,7 +448,7 @@ Derivations are submitted in batches of at most MAX-BATCH-SIZE items."
|
|||
(log-message "building batch of ~a derivations (~a/~a)"
|
||||
max-batch-size (- total count) total)
|
||||
(let-values (((port finish)
|
||||
(build-derivations& store drv)))
|
||||
(build-derivations& store batch)))
|
||||
(process-build-log port
|
||||
(lambda (event state)
|
||||
;; Catch any errors so we can keep reading
|
||||
|
@ -467,7 +467,7 @@ Derivations are submitted in batches of at most MAX-BATCH-SIZE items."
|
|||
;; 'build-derivations' doesn't actually do anything and
|
||||
;; 'handle-build-event' doesn't see any event. Because of that,
|
||||
;; adjust DB here.
|
||||
(update-build-statuses! store db drv)
|
||||
(update-build-statuses! store db batch)
|
||||
|
||||
(loop rest (max (- count max-batch-size) 0))))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue