diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-04-18 11:00:35 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-04-18 11:00:35 +0100 |
| commit | f5614dd75d36fb446456fc2f36032bf9778ecf95 (patch) | |
| tree | 48777d55cd81a9e9fa16fb549b3d0f4a70913e8a | |
| parent | 97a01853b8e2bc2329e82dea8da920048c095d14 (diff) | |
| download | data-service-f5614dd75d36fb446456fc2f36032bf9778ecf95.tar data-service-f5614dd75d36fb446456fc2f36032bf9778ecf95.tar.gz | |
Remove redundant branch from retry-on-missing-store-item
I think #:unwind-for-type prevents this condition.
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 3daae30..4eb3c81 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -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)) |