From 2f37403606d31b7b9bfe68c57665d41faaa1d100 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 9 Apr 2018 11:06:46 +0200 Subject: base: 'spawn-builds' really builds by chunks. Fixes a regression introduced in 074b9d02f1ca01007f39adbc019763027a51d9bd 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!'. --- src/cuirass/base.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm index 9e930d4..9985fd6 100644 --- a/src/cuirass/base.scm +++ b/src/cuirass/base.scm @@ -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)))))) -- cgit v1.2.3