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

Retry processing background queue jobs on exception

Browse source
This commit is contained in:
Christopher Baines 2025-07-01 13:33:22 +01:00
parent f1e444babe
commit 8640958af7
1 changed files with 48 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -235,8 +235,9 @@ 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))
(while
(with-exception-handler (with-exception-handler
(lambda _ #f) (lambda _ #t)
(lambda () (lambda ()
(with-exception-handler (with-exception-handler
(lambda (exn) (lambda (exn)
@ -282,8 +283,10 @@ port. Also, the port used can be changed by passing the --port option.\n"
(assq-ref (resource-pool-stats (background-connection-pool) (assq-ref (resource-pool-stats (background-connection-pool)
#:timeout #f) #:timeout #f)
'resources) 'resources)
build-ids))))) build-ids))
#:unwind? #t)) #f)))
#:unwind? #t)
(sleep 20)))
#:parallel? #t) #:parallel? #t)
(spawn-fiber (spawn-fiber