diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-02-08 12:05:42 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-02-08 12:05:42 +0000 |
| commit | 82b1ae6b7541d9174e9ab8cb492e1167b869806b (patch) | |
| tree | 409ad947762947a2247dd97691348e5f4d2a0099 | |
| parent | c31c9575e02687f6dcc5f1c04724d0b3c8be8b66 (diff) | |
| download | data-service-82b1ae6b7541d9174e9ab8cb492e1167b869806b.tar data-service-82b1ae6b7541d9174e9ab8cb492e1167b869806b.tar.gz | |
Improve the branch-updated-emails module line length
| -rw-r--r-- | guix-data-service/branch-updated-emails.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/guix-data-service/branch-updated-emails.scm b/guix-data-service/branch-updated-emails.scm index bec9b33..684c2e3 100644 --- a/guix-data-service/branch-updated-emails.scm +++ b/guix-data-service/branch-updated-emails.scm @@ -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"))))))))))) |