diff options
author | Christopher Baines <mail@cbaines.net> | 2024-03-26 12:58:20 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2024-03-26 12:58:20 +0000 |
commit | b36dc0141e83ddd182320b05e3f0269df8bf6de6 (patch) | |
tree | a7c4c26cb0a9b4cdd2fbf6f4821599dc317392fa | |
parent | fae501e69cb4236bd2702a2b281ee66e17d2cb17 (diff) | |
download | qa-frontpage-b36dc0141e83ddd182320b05e3f0269df8bf6de6.tar qa-frontpage-b36dc0141e83ddd182320b05e3f0269df8bf6de6.tar.gz |
Try to better handle debbugs being unavailable
-rw-r--r-- | guix-qa-frontpage/patchwork.scm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/guix-qa-frontpage/patchwork.scm b/guix-qa-frontpage/patchwork.scm index 2efef03..8f9d570 100644 --- a/guix-qa-frontpage/patchwork.scm +++ b/guix-qa-frontpage/patchwork.scm @@ -125,7 +125,17 @@ count))) (debbugs-guix-usertag-data - (call-with-delay-logging debbugs-get-issues-with-guix-usertag)) + (with-exception-handler + (lambda (exn) + (simple-format + (current-error-port) + "exception fetching debbugs-guix-usertag-data: ~A\n" + exn) + '()) + (lambda () + (call-with-delay-logging + debbugs-get-issues-with-guix-usertag)) + #:unwind? #t)) (usertag-lookup (let ((hash-table (make-hash-table))) (for-each |