diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-06-19 14:14:19 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-06-19 14:14:19 +0100 |
| commit | 5ab39475dc80cd5ca9f957ad91a84a1bbf45c7e4 (patch) | |
| tree | 1ad653281454edb08e959ca0c70e8d6d9cec42bf | |
| parent | 8d1c783b721b9c2048f527972a4e74349c9bcd25 (diff) | |
| download | qa-frontpage-trunk.tar qa-frontpage-trunk.tar.gz | |
Fix build coordinator exception handlingtrunk
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index c398e8c..41c194b 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -621,10 +621,12 @@ #:times 6 #:delay-seconds 15 #:ignore (lambda (exn) - ;; TODO Improve the coordinator exceptions - (and (exception-with-message? exn) + (and (guix-build-coordinator-error? exn) (let ((err - (assoc-ref (exception-message exn) "error"))) + (assoc-ref + (guix-build-coordinator-error-response-body + exn) + "error"))) (or (string=? err "build-already-processed") (string=? err "build-already-canceled"))))))) |