From a7bbf9da27120839c22cc40abc6fad651df0a762 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 8 Jul 2022 00:13:03 +0100
Subject: Add a couple of missing build allocation triggers

---
 guix-build-coordinator/coordinator.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'guix-build-coordinator')

diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm
index da4ac25..4375aab 100644
--- a/guix-build-coordinator/coordinator.scm
+++ b/guix-build-coordinator/coordinator.scm
@@ -517,6 +517,8 @@
                                               "build-canceled"
                                               (list uuid))))
 
+  (trigger-build-allocation coordinator)
+
   (build-coordinator-prompt-hook-processing-for-event build-coordinator
                                                       'build-canceled)
   #t)
@@ -541,6 +543,9 @@
      (datastore-update-build-priority datastore
                                       uuid
                                       new-priority)))
+
+  (trigger-build-allocation coordinator)
+
   #t)
 
 (define* (new-agent datastore
-- 
cgit v1.2.3