guix
/
data-service
mirror of git://git.savannah.gnu.org/guix/data-service.git
2
0
Fork 0
Code Issues Releases Wiki Activity

Remove logging from enqueue-job-for-email 

As getmail treats output to stderr as the operation failing.
This commit is contained in:
Christopher Baines 2023-10-11 14:17:11 +01:00
parent b0404d62fd
commit d72b9a5239
1 changed files with 35 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
guix-data-service/branch-updated-emails.scm
View File

@ -23,6 +23,7 @@
#:use-module (squee)
#:use-module (guix store)
#:use-module (guix channels)
#:use-module (guix diagnostics)
#:use-module (guix-data-service database)
#:use-module (guix-data-service model git-repository)
#:use-module (guix-data-service model git-branch)
@ -89,47 +90,43 @@
(channel-instance
;; Obtain a session level lock here, to avoid conflicts with
;; other jobs over the Git repository.
(with-advisory-session-lock/log-time
(with-advisory-session-lock
conn
'latest-channel-instances
(lambda ()
(with-store store
(first
(latest-channel-instances store
(list channel-for-commit)
#:authenticate?
(fourth git-repository-details))))))))
(parameterize ((current-output-port (%make-void-port "w"))
(current-error-port (%make-void-port "w"))
(guix-warning-port (%make-void-port "w")))
(with-store store
(first
(latest-channel-instances store
(list channel-for-commit)
#:authenticate?
(fourth git-repository-details)))))))))
(if (string=? (channel-instance-commit channel-instance)
x-git-newrev)
(with-postgresql-transaction
conn
(lambda (conn)
(exec-query conn "LOCK TABLE git_commits IN EXCLUSIVE MODE")
(when (string=? (channel-instance-commit channel-instance)
x-git-newrev)
(with-postgresql-transaction
conn
(lambda (conn)
(exec-query conn "LOCK TABLE git_commits IN EXCLUSIVE MODE")
(if (git-commit-exists? conn x-git-newrev)
(simple-format #t "commit already exists for revision ~A (date: ~A)\n"
x-git-newrev
date)
(begin
(insert-git-commit-entry conn
(or (git-branch-for-repository-and-name
conn
git-repository-id
branch-name)
(insert-git-branch-entry
conn
git-repository-id
branch-name))
x-git-newrev
date)
(unless (git-commit-exists? conn x-git-newrev)
(insert-git-commit-entry conn
(or (git-branch-for-repository-and-name
conn
git-repository-id
branch-name)
(insert-git-branch-entry
conn
git-repository-id
branch-name))
x-git-newrev
date)
(enqueue-load-new-guix-revision-job
conn
git-repository-id
x-git-newrev
(string-append x-git-repo " "
x-git-refname " updated"))))))
(simple-format #t "email newrev ~A doesn't match latest channel instance commit ~A\n"
x-git-newrev
(channel-instance-commit channel-instance)))))))))))))
(enqueue-load-new-guix-revision-job
conn
git-repository-id
x-git-newrev
(string-append x-git-repo " "
x-git-refname " updated"))))))))))))))))