diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-05-15 12:49:27 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-05-15 13:02:39 +0100 |
| commit | aaceb4715a8d68443f96d6c35ead35a317846de6 (patch) | |
| tree | c1f020291bd7fa012c5bdb8d357eb96a550e5564 /guix-qa-frontpage/manage-builds.scm | |
| parent | b587796f41261293cd1d8f3aecb0adc369a7466a (diff) | |
| download | qa-frontpage-aaceb4715a8d68443f96d6c35ead35a317846de6.tar qa-frontpage-aaceb4715a8d68443f96d6c35ead35a317846de6.tar.gz | |
Submit branch builds via a fiber
Rather than a thread.
Diffstat (limited to 'guix-qa-frontpage/manage-builds.scm')
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index 070681d..5727648 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -34,7 +34,7 @@ submit-builds-for-branch start-submit-patch-builds-fiber - start-submit-branch-builds-thread + start-submit-branch-builds-fiber start-submit-master-branch-system-tests-thread)) (define %systems-to-submit-builds-for @@ -352,10 +352,10 @@ lst (take lst n))) -(define (start-submit-branch-builds-thread database - build-coordinator - guix-data-service - metrics-registry) +(define (start-submit-branch-builds-fiber database + build-coordinator + guix-data-service + metrics-registry) (define (cancel-branch-builds branches) (for-each (lambda (branch) @@ -440,13 +440,8 @@ (current-error-port) "waiting for master branch substitutes before submitting branch builds\n"))))))) - (call-with-new-thread + (spawn-fiber (lambda () - (catch 'system-error - (lambda () - (set-thread-name "branch builds")) - (const #t)) - (while #t (with-exception-handler (lambda (exn) |