diff options
| -rw-r--r-- | guix-build-coordinator/utils.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index a95e970..28e245d 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -323,7 +323,15 @@ upcoming chunk." %narinfo-cache-directory "/" directory "/" hash-part))) (when (file-exists? cache-file) - (delete-file cache-file)))) + (with-exception-handler + (lambda (exn) + (simple-format + (current-error-port) + "error: when deleting substitute cache file: ~A\n" + exn)) + (lambda () + (delete-file cache-file)) + #:unwind? #t)))) (or directories '()))) (let ((narinfos |