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

Remove redundant branch from retry-on-missing-store-item

Browse source 
I think #:unwind-for-type prevents this condition.
This commit is contained in:
Christopher Baines 2025-04-18 11:00:35 +01:00
parent 97a01853b8
commit f5614dd75d
1 changed files with 8 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

19
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -123,17 +123,14 @@
(define* (retry-on-missing-store-item thunk #:key on-exception)
(with-exception-handler
(lambda (exn)
(if (missing-store-item-error? exn)
(begin
(simple-format (current-error-port)
"missing store item ~A, retrying ~A\n"
(missing-store-item-error-item exn)
thunk)
(when on-exception (on-exception))
(retry-on-missing-store-item
thunk
#:on-exception on-exception))
(raise-exception exn)))
(simple-format (current-error-port)
"missing store item ~A, retrying ~A\n"
(missing-store-item-error-item exn)
thunk)
(when on-exception (on-exception))
(retry-on-missing-store-item
thunk
#:on-exception on-exception))
thunk
#:unwind? #t
#:unwind-for-type &missing-store-item-error))