From e8625ce145dd6b1f75c1fd248d0063262e99855e Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 27 Feb 2025 09:27:52 +0000 Subject: Don't print backtraces unless there's an error When fetching derivation changes for an issue. --- guix-qa-frontpage/manage-builds.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index 3546fcf..4d1ee97 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -100,10 +100,12 @@ (current-error-port) "failed fetching derivation changes for issue ~A: ~A\n" issue-number - (if (and (guix-data-service-error? exn) - (= (guix-data-service-error-response-code exn) 200)) - (guix-data-service-error-summary exn) - exn)) + (guix-data-service-error-summary exn)) + + (unless + (and (guix-data-service-error? exn) + (= (guix-data-service-error-response-code exn) 200)) + (print-backtrace-and-exception/knots exn)) #f) (lambda () (with-sqlite-cache -- cgit v1.2.3