diff options
Diffstat (limited to 'guix-qa-frontpage/branch.scm')
| -rw-r--r-- | guix-qa-frontpage/branch.scm | 24 |
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 |