diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-02-02 18:21:10 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-02-02 18:21:35 +0000 |
| commit | f016f37ee004294722650ac570d3e4286bc8d161 (patch) | |
| tree | 843ee8302eb0a176f89f4ad0edc2f05ff995c570 | |
| parent | ce1dac19ef1790cc371fb3acb679a6ca871e4142 (diff) | |
| download | nar-herder-f016f37ee004294722650ac570d3e4286bc8d161.tar nar-herder-f016f37ee004294722650ac570d3e4286bc8d161.tar.gz | |
Add some more logging
| -rw-r--r-- | nar-herder/mirror.scm | 7 | ||||
| -rw-r--r-- | nar-herder/storage.scm | 3 |
2 files changed, 8 insertions, 2 deletions
diff --git a/nar-herder/mirror.scm b/nar-herder/mirror.scm index cdaa50c..1bc4c8f 100644 --- a/nar-herder/mirror.scm +++ b/nar-herder/mirror.scm @@ -71,6 +71,10 @@ (recent-changes (assoc-ref json-body "recent_changes"))) + (log-msg 'INFO "queried for recent changes since " + latest-recent-change) + (log-msg 'INFO "got " (vector-length recent-changes) " changes") + ;; Switch to symbol keys and standardise the key order (vector-map! (lambda (_ change-details) @@ -95,7 +99,8 @@ (read-narinfo port "https://narherderdummyvalue"))))) (log-msg 'INFO "processing addition change for " - (uri-path (first (narinfo-uris narinfo)))) + (uri-path (first (narinfo-uris narinfo))) + " (" (assq-ref change-details 'datetime) ")") (database-insert-narinfo database narinfo))) (else diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm index c23a124..620860a 100644 --- a/nar-herder/storage.scm +++ b/nar-herder/storage.scm @@ -201,7 +201,8 @@ (loop storage-size-estimate (cdr stored-nar-files))))) (loop storage-size - (cdr stored-nar-files)))))))) + (cdr stored-nar-files))))))) + (log-msg 'INFO "finished looking for nars to remove")) (when (null? nar-removal-criteria) (error "must be some removal criteria")) |