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))
(sleep 1))
(while
(with-exception-handler
(lambda _ #f)
(lambda _ #t)
(lambda ()
(with-exception-handler
(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)
#:timeout #f)
'resources)
build-ids)))))
#:unwind? #t))
build-ids))
#f)))
#:unwind? #t)
(sleep 20)))
#:parallel? #t)
(spawn-fiber