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

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