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 /nar-herder/mirror.scm | |
| parent | ce1dac19ef1790cc371fb3acb679a6ca871e4142 (diff) | |
| download | nar-herder-f016f37ee004294722650ac570d3e4286bc8d161.tar nar-herder-f016f37ee004294722650ac570d3e4286bc8d161.tar.gz | |
Add some more logging
Diffstat (limited to 'nar-herder/mirror.scm')
| -rw-r--r-- | nar-herder/mirror.scm | 7 |
1 files changed, 6 insertions, 1 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 |