01/07: offload: Look at machine loads for the past minute.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 309121a113aa92f26085e37547715443d3bfee56
Author: Ludovic Courtès <address@hidden>
Date:   Sun Jan 14 23:09:28 2018 +0100

    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.
---
 guix/scripts/offload.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm
index d011520..56d6de6 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\