cbaines pushed a commit to branch master
in repository data-service.
commit d74422c2686890c7df26dd52104d65bfd042e7bd
Author: Christopher Baines <m...@cbaines.net>
AuthorDate: Thu May 23 09:38:24 2024 +0100
Add more logging around polling git repositories
---
guix-data-service/poll-git-repository.scm | 12 ++++++++++++
1 file changed, 12 insertions(+)
diff --git a/guix-data-service/poll-git-repository.scm
b/guix-data-service/poll-git-repository.scm
index 2ed5644..8dfd13d 100644
--- a/guix-data-service/poll-git-repository.scm
+++ b/guix-data-service/poll-git-repository.scm
@@ -99,6 +99,9 @@
conn
'latest-channel-instances
(lambda ()
+ (simple-format (current-error-port)
+ "polling git repository ~A\n"
+ git-repository-id)
;; This was using update-cached-checkout, but it wants to checkout
;; refs/remotes/origin/HEAD by default, and that can fail for some reason
;; on some repositories:
@@ -158,6 +161,15 @@
oid->string)))))
(branch-list repository BRANCH-REMOTE)))))
+ (simple-format (current-error-port)
+ "git repository ~A: excluded branches: ~A\n"
+ git-repository-id
+ excluded-branches)
+ (simple-format (current-error-port)
+ "git repository ~A: included branches: ~A\n"
+ git-repository-id
+ included-branches)
+
(with-postgresql-transaction
conn
(lambda (conn)
