diff options
Diffstat (limited to 'guix-data-service/branch-updated-emails.scm')
| -rw-r--r-- | guix-data-service/branch-updated-emails.scm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/guix-data-service/branch-updated-emails.scm b/guix-data-service/branch-updated-emails.scm index 684c2e3..38432e6 100644 --- a/guix-data-service/branch-updated-emails.scm +++ b/guix-data-service/branch-updated-emails.scm @@ -22,6 +22,7 @@ #:use-module (email email) #:use-module (guix-data-service model git-repository) #:use-module (guix-data-service model git-branch) + #:use-module (guix-data-service model git-commit) #:use-module (guix-data-service jobs load-new-guix-revision) #:export (enqueue-job-for-email)) @@ -59,13 +60,19 @@ (when (and (not excluded-branch?) (or (null? included-branches) included-branch?)) - (insert-git-branch-entry conn - branch-name + (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)) (if (string=? commit-all-zeros x-git-newrev) "" x-git-newrev) - git-repository-id date) (unless (string=? commit-all-zeros x-git-newrev) |