diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-04-16 12:17:08 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-04-16 12:17:08 +0100 |
| commit | c7cef9f03dc20f6e4604c49e8ff9654cf9465a20 (patch) | |
| tree | f605d9c542e5d04276172278ba8b5cd24a80fcd5 | |
| parent | bf972c9fb928950909dab78f8af94902fc39000a (diff) | |
| download | nar-herder-c7cef9f03dc20f6e4604c49e8ff9654cf9465a20.tar nar-herder-c7cef9f03dc20f6e4604c49e8ff9654cf9465a20.tar.gz | |
Add some error handling to the cached compression management fiber
| -rw-r--r-- | nar-herder/cached-compression.scm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/nar-herder/cached-compression.scm b/nar-herder/cached-compression.scm index 8d01618..375fdaa 100644 --- a/nar-herder/cached-compression.scm +++ b/nar-herder/cached-compression.scm @@ -332,9 +332,16 @@ initial-cached-bytes-by-compression)) (match (get-message channel) (('narinfo-id . narinfo-id) - (consider-narinfo cached-bytes-by-compression - nar-cached-compression-usage-hash-table - narinfo-id) + (with-exception-handler + (lambda (exn) + (log-msg 'ERROR "exception considering narinfo (" + narinfo-id "): " exn) + #f) + (lambda () + (consider-narinfo cached-bytes-by-compression + nar-cached-compression-usage-hash-table + narinfo-id)) + #:unwind? #t) (loop cached-bytes-by-compression)) (((and (or 'cached-narinfo-added 'cached-narinfo-removed) |