From 54a11820d0846026784e59f9aee5d9346aaf4d64 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Tue, 25 Jun 2024 12:31:45 +0100
Subject: Skip updating derived priorities for branch builds

As I think this can be skipped without affecting the derived priorities.
---
 guix-qa-frontpage/manage-builds.scm | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm
index dbc3dac..f0eaacb 100644
--- a/guix-qa-frontpage/manage-builds.scm
+++ b/guix-qa-frontpage/manage-builds.scm
@@ -311,7 +311,8 @@
                                           (shuffle-derivations-and-priorities!
                                            derivations-and-priorities)
                                           build-ids-to-keep-set
-                                          branch-commit)))
+                                          branch-commit
+                                          #:skip-updating-derived-priorities? #t)))
           (begin
             (simple-format
              (current-error-port)
@@ -362,7 +363,8 @@
                                           branch
                                           derivations-and-priorities
                                           (set)
-                                          branch-commit)))))))
+                                          branch-commit
+                                          #:skip-updating-derived-priorities? #t)))))))
 
 (define (take* lst n)
   (if (< (length lst) n)
@@ -484,7 +486,8 @@
        (sleep 3600)))))
 
 (define* (submit-build build-coordinator guix-data-service derivation
-                       #:key (priority 0) (tags '()))
+                       #:key (priority 0) (tags '())
+                       skip-updating-derived-priorities?)
   (retry-on-error
    (lambda ()
      (let ((response
@@ -499,7 +502,9 @@
                 #t
                 #t
                 #t
-                tags))
+                tags
+                #:skip-updating-derived-priorities?
+                skip-updating-derived-priorities?))
              #:timeout 240)))
        (let ((no-build-submitted-response
               (assoc-ref response "no-build-submitted")))
@@ -763,7 +768,8 @@
                                      build-ids-to-keep-set
                                      target-commit
                                      #:key build-limit
-                                     (build-count-priority-penalty (const 0)))
+                                     (build-count-priority-penalty (const 0))
+                                     skip-updating-derived-priorities?)
   (define (submit-builds build-details
                          build-ids-to-keep-set)
     (define submit-build/fiberized
@@ -782,7 +788,9 @@
                                    ((key . ,category-name)
                                     (value . ,category-value))
                                    ((key . revision)
-                                    (value . ,target-commit)))))))
+                                    (value . ,target-commit)))
+                                 #:skip-updating-derived-priorities?
+                                 skip-updating-derived-priorities?))))
 
     (fibers-for-each submit-single build-details))
 
-- 
cgit v1.2.3