From d74422c2686890c7df26dd52104d65bfd042e7bd Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 23 May 2024 09:38:24 +0100 Subject: [PATCH] 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)