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