diff options
| -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"))))))) |