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.
This commit is contained in:
Ludovic Courtès 2018-01-14 23:09:28 +01:00
parent b640370d82
commit 309121a113
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 1 deletions

View File

@ -400,7 +400,7 @@ allowed on MACHINE. Return +∞ if MACHINE is unreachable."
+inf.0 ;MACHINE does not respond, so assume it is infinitely loaded +inf.0 ;MACHINE does not respond, so assume it is infinitely loaded
(match (string-tokenize line) (match (string-tokenize line)
((one five fifteen . x) ((one five fifteen . x)
(let* ((raw (string->number five)) (let* ((raw (string->number one))
(jobs (build-machine-parallel-builds machine)) (jobs (build-machine-parallel-builds machine))
(normalized (/ raw jobs))) (normalized (/ raw jobs)))
(format (current-error-port) "load on machine '~a' is ~s\ (format (current-error-port) "load on machine '~a' is ~s\