From 76dacdfa6295c81b228b88e682900e41fe991bd2 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 6 Oct 2023 11:22:22 +0100 Subject: Don't print backtraces for the request part of derivation changes --- guix-qa-frontpage/branch.scm | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'guix-qa-frontpage') diff --git a/guix-qa-frontpage/branch.scm b/guix-qa-frontpage/branch.scm index d61e8fe..2d21997 100644 --- a/guix-qa-frontpage/branch.scm +++ b/guix-qa-frontpage/branch.scm @@ -225,19 +225,19 @@ exn) `((exception . ,(simple-format #f "~A" exn)))))) (lambda () - (with-throw-handler #t - (lambda () - (let ((derivation-changes-data - (compare-package-derivations - (compare-package-derivations-url - revisions - #:systems %systems-to-submit-builds-for)))) - + (let ((data + (compare-package-derivations + (compare-package-derivations-url + revisions + #:systems %systems-to-submit-builds-for)))) + + (with-throw-handler #t + (lambda () (derivation-changes - derivation-changes-data - %systems-to-submit-builds-for))) - (lambda _ - (backtrace)))) + data + %systems-to-submit-builds-for)) + (lambda _ + (backtrace))))) #:unwind? #t)) (substitute-availability -- cgit v1.2.3