diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-01-14 23:09:28 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-01-15 23:29:33 +0100 |
| commit | 309121a113aa92f26085e37547715443d3bfee56 (patch) | |
| tree | 5bdc934612ff66ed9c7b13c289fd9ff974d363c0 | |
| parent | b640370d8290ace2507c84e61fe99811effaf7da (diff) | |
| download | patches-309121a113aa92f26085e37547715443d3bfee56.tar patches-309121a113aa92f26085e37547715443d3bfee56.tar.gz | |
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.scm | 2 |
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\ |