diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index bd331ab..8c154eb 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -1589,20 +1589,20 @@ SKIP LOCKED") (setup-logging id (lambda () - (catch #t + (with-exception-handler + (lambda (exn) + (simple-format (current-error-port) + "error: load-new-guix-revision: ~A\n" + exn) + (backtrace) + #f) (lambda () (with-store-connection (lambda (store) (load-new-guix-revision conn store git-repository-id - commit)))) - (lambda (key . args) - (simple-format - (current-error-port) - "error: load-new-guix-revision: ~A ~A\n" - key args) - #f))))) + commit)))))))) #t)) (begin (record-job-succeeded conn id)