cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add more logging around polling git repositories

Browse source
This commit is contained in:
Christopher Baines 2024-05-23 09:38:24 +01:00
parent f7ada4bf1f
commit d74422c268
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
guix-data-service/poll-git-repository.scm
View file

@ -99,6 +99,9 @@
conn conn
'latest-channel-instances 'latest-channel-instances
(lambda () (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 ;; This was using update-cached-checkout, but it wants to checkout
;; refs/remotes/origin/HEAD by default, and that can fail for some reason ;; refs/remotes/origin/HEAD by default, and that can fail for some reason
;; on some repositories: ;; on some repositories:
@ -158,6 +161,15 @@
oid->string))))) oid->string)))))
(branch-list repository BRANCH-REMOTE))))) (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 (with-postgresql-transaction
conn conn
(lambda (conn) (lambda (conn)