diff options
Diffstat (limited to 'guix-qa-frontpage/issue.scm')
| -rw-r--r-- | guix-qa-frontpage/issue.scm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/guix-qa-frontpage/issue.scm b/guix-qa-frontpage/issue.scm index beed41f..6a031e1 100644 --- a/guix-qa-frontpage/issue.scm +++ b/guix-qa-frontpage/issue.scm @@ -27,6 +27,7 @@ #:use-module ((guix build syscalls) #:select (set-thread-name)) #:use-module (fibers) + #:use-module (knots) #:use-module (knots non-blocking) #:use-module (knots parallelism) #:use-module (guix-qa-frontpage utils) @@ -411,23 +412,22 @@ (while #t (let ((start-time (current-time))) (with-exception-handler - (lambda (exn) - (simple-format - (current-error-port) - "exception in data refresh thread: ~A\n" - exn)) + (lambda _ #f) (lambda () (with-time-logging "refreshing data" - (with-throw-handler #t + (with-exception-handler + (lambda (exn) + (simple-format + (current-error-port) + "exception in data refresh thread\n") + (print-backtrace-and-exception/knots exn) + (raise-exception exn)) (lambda () (call-with-duration-metric metrics-registry "refresh_patch_branches_data_duration_seconds" refresh-data - #:buckets (list 30 60 120 240 480 960 1920 3840 (inf)))) - (lambda args - (display (backtrace) (current-error-port)) - (newline (current-error-port)))))) + #:buckets (list 30 60 120 240 480 960 1920 3840 (inf))))))) #:unwind? #t) (let ((time-taken |