From 82b1ae6b7541d9174e9ab8cb492e1167b869806b Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 8 Feb 2020 12:05:42 +0000 Subject: Improve the branch-updated-emails module line length --- guix-data-service/branch-updated-emails.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'guix-data-service') 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"))))))))))) -- cgit v1.2.3