diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-12 17:20:26 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-13 09:55:16 +0100 |
| commit | 5e1947cd8e0297db4b911c9b88745b0ed9dccc1a (patch) | |
| tree | ff962ec57ee75d573ac45467bffb9cf93906cb33 | |
| parent | cba2a28017c3da02c18a7992a83830c7c91042ba (diff) | |
| download | nar-herder-5e1947cd8e0297db4b911c9b88745b0ed9dccc1a.tar nar-herder-5e1947cd8e0297db4b911c9b88745b0ed9dccc1a.tar.gz | |
Add more logging when checking if a nar can be removed
| -rw-r--r-- | nar-herder/storage.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm index 14a2258..10dafe7 100644 --- a/nar-herder/storage.scm +++ b/nar-herder/storage.scm @@ -442,8 +442,11 @@ When VERIFY-CERTIFICATE? is true, verify HTTPS server certificates." #:timeout 30))))) (define (nar-can-be-removed? nar) + (log-msg 'INFO "checking if " (assq-ref nar 'url) " can be removed") (any (lambda (criteria) - (check-removal-criteria nar criteria)) + (let ((result (check-removal-criteria nar criteria))) + (log-msg 'INFO "removal criteria (" criteria "): " result) + result)) nar-removal-criteria)) (define (run-removal-pass) |