guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

Improve the branch-updated-emails module line length

Browse source
This commit is contained in:
Christopher Baines 2020-02-08 12:05:42 +00:00
parent c31c9575e0
commit 82b1ae6b75
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
guix-data-service/branch-updated-emails.scm
View file

@ -25,6 +25,9 @@
#:use-module (guix-data-service jobs load-new-guix-revision)
#:export (enqueue-job-for-email))
(define commit-all-zeros
"0000000000000000000000000000000000000000")
(define (enqueue-job-for-email conn email)
(let* ((headers (email-headers email))
(date (assq-ref headers 'date))
@ -58,17 +61,17 @@
included-branch?))
(insert-git-branch-entry conn
branch-name
(if (string=? "0000000000000000000000000000000000000000"
(if (string=? commit-all-zeros
x-git-newrev)
""
x-git-newrev)
git-repository-id
date)
(unless (string=? "0000000000000000000000000000000000000000"
x-git-newrev)
(unless (string=? commit-all-zeros x-git-newrev)
(enqueue-load-new-guix-revision-job
conn
git-repository-id
x-git-newrev
(string-append x-git-repo " " x-git-refname " updated")))))))))))
(string-append x-git-repo " "
x-git-refname " updated")))))))))))