summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-01-14 23:09:28 +0100
committerLudovic Courtès <ludo@gnu.org>2018-01-15 23:29:33 +0100
commit309121a113aa92f26085e37547715443d3bfee56 (patch)
tree5bdc934612ff66ed9c7b13c289fd9ff974d363c0
parentb640370d8290ace2507c84e61fe99811effaf7da (diff)
offload: Look at machine loads for the past minute.
Previously we were looking at the load of the past 5 minutes, which means that, after a build, we could end up waiting for 5 minutes for that metric to be low enough. * guix/scripts/offload.scm (machine-load): Compute RAW based on ONE, not FIVE.
-rw-r--r--guix/scripts/offload.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm
index d011520885..56d6de6308 100644
--- a/guix/scripts/offload.scm
+++ b/guix/scripts/offload.scm
@@ -400,7 +400,7 @@ allowed on MACHINE. Return +∞ if MACHINE is unreachable."
+inf.0 ;MACHINE does not respond, so assume it is infinitely loaded
(match (string-tokenize line)
((one five fifteen . x)
- (let* ((raw (string->number five))
+ (let* ((raw (string->number one))
(jobs (build-machine-parallel-builds machine))
(normalized (/ raw jobs)))
(format (current-error-port) "load on machine '~a' is ~s\