From b36dc0141e83ddd182320b05e3f0269df8bf6de6 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Tue, 26 Mar 2024 12:58:20 +0000
Subject: Try to better handle debbugs being unavailable

---
 guix-qa-frontpage/patchwork.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3