diff options
Diffstat (limited to 'guix-qa-frontpage/manage-builds.scm')
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 58 |
1 files changed, 28 insertions, 30 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index f461292..3546fcf 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -7,6 +7,7 @@ #:use-module (ice-9 threads) #:use-module (ice-9 exceptions) #:use-module (fibers) + #:use-module (knots) #:use-module (knots parallelism) #:use-module (knots non-blocking) #:use-module (knots timeout) @@ -218,13 +219,15 @@ (lambda () (while #t (with-exception-handler - (lambda (exn) - (simple-format - (current-error-port) - "exception in submit patch builds fiber: ~A\n" - exn)) + (lambda _ #f) (lambda () - (with-throw-handler #t + (with-exception-handler + (lambda (exn) + (simple-format + (current-error-port) + "exception in submit patch builds fiber\n") + (print-backtrace-and-exception/knots exn) + (raise-exception exn)) (lambda () (let* ((substitute-availability systems-with-low-substitute-availability @@ -242,10 +245,7 @@ "submit_patch_builds_duration_seconds" submit-builds #:buckets (list 30 60 120 240 480 960 1920 3840 (inf))) - (sleep 900)))) - (lambda args - (display (backtrace) (current-error-port)) - (newline (current-error-port))))) + (sleep 900)))))) #:unwind? #t) (simple-format #t "finished submitting patch builds\n") @@ -478,22 +478,21 @@ (lambda () (while #t (with-exception-handler - (lambda (exn) - (simple-format - (current-error-port) - "exception in submit branch builds fiber: ~A\n" - exn)) + (lambda _ #f) (lambda () - (with-throw-handler #t + (with-exception-handler + (lambda (exn) + (simple-format + (current-error-port) + "exception in submit branch builds fiber\n") + (print-backtrace-and-exception/knots exn) + (raise-exception exn)) (lambda () (call-with-duration-metric metrics-registry "submit_branch_builds_duration_seconds" submit-branch-builds - #: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) (sleep 3600))))) @@ -914,22 +913,21 @@ (while #t (with-exception-handler - (lambda (exn) - (simple-format - (current-error-port) - "exception in submit system test builds thread: ~A\n" - exn)) + (lambda _ #f) (lambda () - (with-throw-handler #t + (with-exception-handler + (lambda (exn) + (simple-format + (current-error-port) + "exception in submit system test builds thread\n") + (print-backtrace-and-exception/knots exn) + (raise-exception exn)) (lambda () (call-with-duration-metric metrics-registry "submit_master_branch_system_tests_duration_seconds" submit-builds - #: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) (sleep 3600))))) |