diff options
Diffstat (limited to 'guix-qa-frontpage/manage-builds.scm')
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 24 |
1 files changed, 17 insertions, 7 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index 5a1533f..c687932 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -61,13 +61,23 @@ (if derivation-changes-url (let ((derivation-changes change-details - (with-sqlite-cache - database - 'derivation-changes - patch-series-derivation-changes - #:args - (list derivation-changes-url) - #:ttl 6000))) + (with-exception-handler + (lambda (exn) + (simple-format + (current-error-port) + "failed fetching derivation changes for issue ~A: ~A\n" + issue-number + exn) + + (values #f #f)) + (lambda () + (with-sqlite-cache + database + 'derivation-changes + patch-series-derivation-changes + #:args + (list derivation-changes-url) + #:ttl 6000))))) (when derivation-changes (let ((target-commit |