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

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

@ -123,8 +123,6 @@
(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)
(begin
(simple-format (current-error-port) (simple-format (current-error-port)
"missing store item ~A, retrying ~A\n" "missing store item ~A, retrying ~A\n"
(missing-store-item-error-item exn) (missing-store-item-error-item exn)
@ -133,7 +131,6 @@
(retry-on-missing-store-item (retry-on-missing-store-item
thunk thunk
#:on-exception on-exception)) #: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))