diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-08-28 15:58:32 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-08-28 15:58:32 +0100 |
| commit | 4f1b8aa7a03bccb7dc90fdd4c26bfb02ea3e3255 (patch) | |
| tree | 436643ff93470277be7f35db04fdfef3be755c46 | |
| parent | 2f9b1cb355e9a276903a721b48c77790841a91d6 (diff) | |
| download | bffe-4f1b8aa7a03bccb7dc90fdd4c26bfb02ea3e3255.tar bffe-4f1b8aa7a03bccb7dc90fdd4c26bfb02ea3e3255.tar.gz | |
Include the log-prefix in submit build exceptions
To make debugging easier.
| -rw-r--r-- | bffe/manage-builds.scm | 33 |
1 files changed, 21 insertions, 12 deletions
diff --git a/bffe/manage-builds.scm b/bffe/manage-builds.scm index 8acf7c7..3ed2e6e 100644 --- a/bffe/manage-builds.scm +++ b/bffe/manage-builds.scm @@ -505,18 +505,27 @@ (retry-on-error (lambda () (let ((response - (send-submit-build-request - coordinator - derivation - (list guix-data-service) - requested-uuid - priority - #t - #t - #t - tags - #:skip-updating-derived-priorities? - skip-updating-derived-priorities?))) + (with-exception-handler + (lambda (exn) + ;; Include the log-prefix in the exception to make + ;; debugging easier + (raise-exception + (make-exception + (make-exception-with-irritants log-prefix) + exn))) + (lambda () + (send-submit-build-request + coordinator + derivation + (list guix-data-service) + requested-uuid + priority + #t + #t + #t + tags + #:skip-updating-derived-priorities? + skip-updating-derived-priorities?))))) (let ((no-build-submitted-response (assoc-ref response "no-build-submitted"))) (if no-build-submitted-response |