diff options
| -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) |