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) (define* (retry-on-missing-store-item thunk #:key on-exception)
(with-exception-handler (with-exception-handler
(lambda (exn) (lambda (exn)
(if (missing-store-item-error? exn) (simple-format (current-error-port)
(begin "missing store item ~A, retrying ~A\n"
(simple-format (current-error-port) (missing-store-item-error-item exn)
"missing store item ~A, retrying ~A\n" thunk)
(missing-store-item-error-item exn) (when on-exception (on-exception))
thunk) (retry-on-missing-store-item
(when on-exception (on-exception)) thunk
(retry-on-missing-store-item #:on-exception on-exception))
thunk
#:on-exception on-exception))
(raise-exception exn)))
thunk thunk
#:unwind? #t #:unwind? #t
#:unwind-for-type &missing-store-item-error)) #:unwind-for-type &missing-store-item-error))