diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-12-23 18:20:44 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-12-23 18:20:44 +0000 |
| commit | 28342e3f951fa9e6125a6062afd43fee7e651849 (patch) | |
| tree | 56fd91f8bbcb9a85dea7abfc9e72f3c43527cc13 | |
| parent | e1a4df900d87c4af63dc33aa5aabba821ac2be1f (diff) | |
| download | build-coordinator-28342e3f951fa9e6125a6062afd43fee7e651849.tar build-coordinator-28342e3f951fa9e6125a6062afd43fee7e651849.tar.gz | |
Switch to using the 1 minute load average
So that it's more responsive.
| -rw-r--r-- | guix-build-coordinator/agent.scm | 4 | ||||
| -rw-r--r-- | scripts/guix-build-coordinator-agent.in | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index f80cb10..f7a41b8 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -46,7 +46,7 @@ derivation-substitute-urls non-derivation-substitute-urls metrics-file - max-5min-load-average) + max-1min-load-average) (define lgr (make <logger>)) (define port-log (make <port-log> #:port (current-output-port) @@ -93,7 +93,7 @@ (define (wait-for-low-load build-id) (let ((current-load (get-load-average))) - (when (>= current-load max-5min-load-average) + (when (>= current-load max-1min-load-average) (log-msg lgr 'INFO build-id ": holding build start due to high load") diff --git a/scripts/guix-build-coordinator-agent.in b/scripts/guix-build-coordinator-agent.in index ce4742e..4d0666d 100644 --- a/scripts/guix-build-coordinator-agent.in +++ b/scripts/guix-build-coordinator-agent.in @@ -57,9 +57,9 @@ (alist-cons 'max-parallel-builds (string->number arg) result))) - (option '("max-5min-load-average") #t #f + (option '("max-1min-load-average") #t #f (lambda (opt name arg result) - (alist-cons 'max-5min-load-average + (alist-cons 'max-1min-load-average (string->number arg) result))) (option '("substitute-urls") #t #f @@ -124,4 +124,4 @@ (or (assq-ref opts 'non-derivation-substitute-urls) (assq-ref opts 'substitute-urls)) (assq-ref opts 'metrics-file) - (assq-ref opts 'max-5min-load-average))) + (assq-ref opts 'max-1min-load-average))) |