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

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

@ -77,7 +77,18 @@
"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
(lambda (exn)
(simple-format
(current-error-port)
"exception: ~A\n"
exn)
(exit 1))
(lambda ()
(with-throw-handler #t
(lambda ()
(process-jobs
conn
#:max-processes (assq-ref opts 'max-processes) #:max-processes (assq-ref opts 'max-processes)
#:latest-branch-revision-max-processes #:latest-branch-revision-max-processes
(or (assq-ref opts 'latest-branch-revision-max-processes) (or (assq-ref opts 'latest-branch-revision-max-processes)
@ -85,4 +96,7 @@
#:skip-system-tests? #:skip-system-tests?
(assq-ref opts 'skip-system-tests) (assq-ref opts 'skip-system-tests)
#:per-job-parallelism #:per-job-parallelism
(assq-ref opts 'per-job-parallelism))))) (assq-ref opts 'per-job-parallelism)))
(lambda _
(backtrace))))
#:unwind? #t))))