aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-07-08 09:55:41 +0100
committerChristopher Baines <mail@cbaines.net>2023-07-08 09:55:41 +0100
commit374c8de2646372a0207b2a30248443d41509a6b5 (patch)
tree26ccc97d2d557368e72223af2a692e77ffaee787
parent1145a806e7c8780c28ee06e88c2c2e5043844191 (diff)
downloadnar-herder-374c8de2646372a0207b2a30248443d41509a6b5.tar
nar-herder-374c8de2646372a0207b2a30248443d41509a6b5.tar.gz
Log just before querying for recent changes
-rw-r--r--nar-herder/mirror.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/nar-herder/mirror.scm b/nar-herder/mirror.scm
index cb47d65..c889af7 100644
--- a/nar-herder/mirror.scm
+++ b/nar-herder/mirror.scm
@@ -75,6 +75,8 @@
(lambda ()
(retry-on-error
(lambda ()
+ (log-msg 'INFO "querying for recent changes since "
+ latest-recent-change)
(with-port-timeouts
(lambda ()
(let ((port
@@ -94,8 +96,6 @@
(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