diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-22 18:21:20 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-22 18:21:20 +0100 |
| commit | 9e0a7fb00073547cebf0b2e1609cda96b8b2d991 (patch) | |
| tree | bcc6d8ee0ffd09944a514ba4ab1757aa3a57083b | |
| parent | e1f9a8e475d5d1719ce3c5a90792254b6ae438bc (diff) | |
| download | qa-frontpage-9e0a7fb00073547cebf0b2e1609cda96b8b2d991.tar qa-frontpage-9e0a7fb00073547cebf0b2e1609cda96b8b2d991.tar.gz | |
Tweak derivation-changes-vectors->builds-to-keep-and-submit
Use a different variable name for the initial derivation-changes-vectors, and
fix a index increment.
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index 350c7d9..3f582cf 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -665,7 +665,7 @@ (list (assoc-ref derivation-changes "derivation_changes")) priority)) -(define (derivation-changes-vectors->builds-to-keep-and-submit derivation-changes-vectors +(define (derivation-changes-vectors->builds-to-keep-and-submit all-derivation-changes-vectors priority) (define (process-change? change) (and (string=? (assoc-ref change "target") @@ -688,7 +688,7 @@ ;; So bad, but hopefully keeps memory usage down compared to converting to ;; lists and flattening - (let loop1 ((derivation-changes-vectors derivation-changes-vectors) + (let loop1 ((derivation-changes-vectors all-derivation-changes-vectors) (builds-to-submit-details '()) (build-ids-to-keep-set (set))) (if (null? derivation-changes-vectors) @@ -752,7 +752,7 @@ (vector->list (assoc-ref change "builds")))) - (loop3 (1+ changes-index) + (loop3 (1+ change-target-index) builds-to-submit-details build-ids-to-keep-set)))))))))))) |