From f016f37ee004294722650ac570d3e4286bc8d161 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 2 Feb 2022 18:21:10 +0000 Subject: Add some more logging --- nar-herder/mirror.scm | 7 ++++++- 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")) -- cgit v1.2.3