diff options
Diffstat (limited to 'guix-qa-frontpage/reproducible-builds.scm')
| -rw-r--r-- | guix-qa-frontpage/reproducible-builds.scm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/guix-qa-frontpage/reproducible-builds.scm b/guix-qa-frontpage/reproducible-builds.scm index 4211627..20ace13 100644 --- a/guix-qa-frontpage/reproducible-builds.scm +++ b/guix-qa-frontpage/reproducible-builds.scm @@ -3,6 +3,7 @@ #:use-module (ice-9 threads) #:use-module (zlib) #:use-module (json) + #:use-module (knots) #:use-module (guix-qa-frontpage guix-data-service) #:export (start-generate-reproducible.json-thread)) @@ -64,17 +65,16 @@ (lambda () (while #t (with-exception-handler - (lambda (exn) - (simple-format - (current-error-port) - "exception in generate reproducible.json fiber: ~A\n" - exn)) + (lambda _ #f) (lambda () - (with-throw-handler #t - generate - (lambda args - (display (backtrace) (current-error-port)) - (newline (current-error-port))))) + (with-exception-handler + (lambda (exn) + (simple-format + (current-error-port) + "exception in generate reproducible.json fiber\n") + (print-backtrace-and-exception/knots exn) + (raise-exception exn)) + generate)) #:unwind? #t) (simple-format #t "finished generating reproducible.json.gz\n") |