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

Add exception handling for processing background jobs

Browse source
This commit is contained in:
Christopher Baines 2025-06-28 18:25:53 +02:00
parent 47ac73e5a7
commit 42711310fd
1 changed files with 44 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

15
guix-data-service/web/server.scm
View file

@ -248,6 +248,18 @@ port. Also, the port used can be changed by passing the --port option.\n"
(while (not (check-startup-completed startup-completed)) (while (not (check-startup-completed startup-completed))
(sleep 1)) (sleep 1))
(with-exception-handler
(lambda _ #f)
(lambda ()
(with-exception-handler
(lambda (exn)
(simple-format
#t
"exception when processing the background jobs queue")
(print-backtrace-and-exception/knots
exn)
(raise-exception exn))
(lambda ()
(call-with-resource-from-pool (background-connection-pool) (call-with-resource-from-pool (background-connection-pool)
(lambda (conn) (lambda (conn)
(let ((build-ids (let ((build-ids
@ -278,7 +290,8 @@ port. Also, the port used can be changed by passing the --port option.\n"
(delete-background-processing-entries-for-build-ids (delete-background-processing-entries-for-build-ids
conn conn
build-id)) build-id))
build-ids))))) build-ids)))))))
#:unwind? #t))
#:parallel? #t) #:parallel? #t)
(spawn-fiber (spawn-fiber