diff options
author | Christopher Baines <mail@cbaines.net> | 2023-06-28 11:58:47 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-06-28 11:58:47 +0100 |
commit | 359cdcbbf6ed107d8b37ce3efbe0cc8c7dd964ab (patch) | |
tree | e4dc82332ffa2b010cffd9fc8da3f7033855f7eb /guix-qa-frontpage/manage-builds.scm | |
parent | b87a9baec4562b74a0ca5c39da99cdcc0c5aa5b2 (diff) | |
download | qa-frontpage-359cdcbbf6ed107d8b37ce3efbe0cc8c7dd964ab.tar qa-frontpage-359cdcbbf6ed107d8b37ce3efbe0cc8c7dd964ab.tar.gz |
Guard against exceptions fetching branch derivation changes
Diffstat (limited to 'guix-qa-frontpage/manage-builds.scm')
-rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 25 |
1 files changed, 18 insertions, 7 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index 369a84a..a83d8d6 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -215,13 +215,24 @@ (if derivation-changes-url (let ((derivation-changes-data change-details - (with-sqlite-cache - database - 'branch-derivation-changes - revision-derivation-changes - #:args - (list derivation-changes-url) - #:ttl 0))) + (with-exception-handler + (lambda (exn) + (simple-format + (current-error-port) + "failed fetching derivation changes for branch ~A: ~A\n" + branch + exn) + + (values #f #f)) + (lambda () + (with-sqlite-cache + database + 'branch-derivation-changes + revision-derivation-changes + #:args + (list derivation-changes-url) + #:ttl 0)) + #:unwind? #t))) (when derivation-changes-data (let ((target-commit |