cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add exception handling to the process-jobs script

Browse source 
As I'm seeing this exit on beid, but I'm not sure why.
This commit is contained in:
Christopher Baines 2024-03-05 10:57:41 +00:00
parent 20ad81f0d4
commit ca69d3329d
1 changed files with 23 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

32
scripts/guix-data-service-process-jobs.in
View file

@ -77,12 +77,26 @@
"process-jobs" "process-jobs"
(lambda (conn) (lambda (conn)
(simple-format #t "Ready to process jobs...\n") (simple-format #t "Ready to process jobs...\n")
(process-jobs conn (with-exception-handler
#:max-processes (assq-ref opts 'max-processes) (lambda (exn)
#:latest-branch-revision-max-processes (simple-format
(or (assq-ref opts 'latest-branch-revision-max-processes) (current-error-port)
(* 2 (assq-ref opts 'max-processes))) "exception: ~A\n"
#:skip-system-tests? exn)
(assq-ref opts 'skip-system-tests) (exit 1))
#:per-job-parallelism (lambda ()
(assq-ref opts 'per-job-parallelism))))) (with-throw-handler #t
(lambda ()
(process-jobs
conn
#:max-processes (assq-ref opts 'max-processes)
#:latest-branch-revision-max-processes
(or (assq-ref opts 'latest-branch-revision-max-processes)
(* 2 (assq-ref opts 'max-processes)))
#:skip-system-tests?
(assq-ref opts 'skip-system-tests)
#:per-job-parallelism
(assq-ref opts 'per-job-parallelism)))
(lambda _
(backtrace))))
#:unwind? #t))))