Don't print backtraces for the request part of derivation changes

1 files changed, 12 insertions, 12 deletions

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