Avoid starting builds if the system load is high

1 files changed, 11 insertions, 2 deletions

diff --git a/scripts/guix-build-coordinator-agent.in b/scripts/guix-build-coordinator-agent.in
index 55e8e92..ce4742e 100644
--- a/scripts/guix-build-coordinator-agent.in
+++ b/scripts/guix-build-coordinator-agent.in
@@ -26,6 +26,7 @@
              (srfi srfi-37)
              (ice-9 textual-ports)
              ((guix config) #:prefix guix-config:)
+             (guix-build-coordinator utils)
              (guix-build-coordinator agent))
 
 (define %options
@@ -56,6 +57,11 @@
                   (alist-cons 'max-parallel-builds
                               (string->number arg)
                               result)))
+        (option '("max-5min-load-average") #t #f
+                (lambda (opt name arg result)
+                  (alist-cons 'max-5min-load-average
+                              (string->number arg)
+                              result)))
         (option '("substitute-urls") #t #f
                 (lambda (opt name arg result)
                   (alist-cons 'substitute-urls
@@ -89,7 +95,9 @@
     (max-parallel-builds . 1)
     (systems             . (,guix-config:%system))
     (metrics-file
-     . "/var/lib/prometheus/node-exporter/guix-build-coordinator-agent.prom")))
+     . "/var/lib/prometheus/node-exporter/guix-build-coordinator-agent.prom")
+    (max-5min-load-average
+     . ,(get-available-processing-units))))
 
 (define (parse-options options defaults args)
   (args-fold
@@ -115,4 +123,5 @@
                  (assq-ref opts 'substitute-urls))
              (or (assq-ref opts 'non-derivation-substitute-urls)
                  (assq-ref opts 'substitute-urls))
-             (assq-ref opts 'metrics-file)))
+             (assq-ref opts 'metrics-file)
+             (assq-ref opts 'max-5min-load-average)))