diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-11-17 14:36:19 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-11-17 14:36:19 +0000 |
| commit | 0bf4d5c1c156ed3806296bf85be92f40abfe3783 (patch) | |
| tree | 2c6a0410b5f9b609348263135cab3510a78cb638 /guix-qa-frontpage/manage-builds.scm | |
| parent | 8439c1b7e7a565f43301b04640109ddddcf5648b (diff) | |
| download | qa-frontpage-0bf4d5c1c156ed3806296bf85be92f40abfe3783.tar qa-frontpage-0bf4d5c1c156ed3806296bf85be92f40abfe3783.tar.gz | |
Handle exceptions when fetching derivation changes for submitting builds
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 |