diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-05-05 19:06:50 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-05-05 19:06:50 +0100 |
| commit | 633c664833213b4081eca6894a23f7c4e3584f81 (patch) | |
| tree | 48308f9558a29e820655cb0fa29e5d9b90e30715 | |
| parent | 7daaaf8155fb2c591cb3e59d70af16d66bbab8a0 (diff) | |
| download | build-coordinator-633c664833213b4081eca6894a23f7c4e3584f81.tar build-coordinator-633c664833213b4081eca6894a23f7c4e3584f81.tar.gz | |
Enable submitting regular status updates for the hurd
| -rw-r--r-- | guix-build-coordinator/agent.scm | 43 |
1 files changed, 21 insertions, 22 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index dc22cda..b05583f 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -517,28 +517,27 @@ (display-info) (loop (get-line (current-input-port)))))))) - (unless (running-on-the-hurd?) - (call-with-new-thread - (lambda () - (set-thread-name "submit status") - - (while #t - (with-exception-handler - (lambda (exn) - (log-msg lgr 'WARN "exception submitting status: " exn)) - (lambda () - (submit-status coordinator-interface - (if (= (+ (count-jobs) - (count-post-build-jobs)) - 0) - 'idle - 'active) - #:1min-load-average - (get-load-average #:period 1) - #:log (build-log-procedure lgr))) - #:unwind? #t) - - (sleep 30))))) + (call-with-new-thread + (lambda () + (set-thread-name "submit status") + + (while #t + (with-exception-handler + (lambda (exn) + (log-msg lgr 'WARN "exception submitting status: " exn)) + (lambda () + (submit-status coordinator-interface + (if (= (+ (count-jobs) + (count-post-build-jobs)) + 0) + 'idle + 'active) + #:1min-load-average + (get-load-average #:period 1) + #:log (build-log-procedure lgr))) + #:unwind? #t) + + (sleep 30)))) (while #t (let ((current-threads (count-threads)) |