summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-05-05 20:23:55 +0100
committerChristopher Baines <mail@cbaines.net>2019-05-05 20:23:55 +0100
commitb29178ff148d807083f7431a24e7f2b722854f5f (patch)
treee906a8b1a95c31e9d357fb3bc7314ed2e8b11ab9
parent5028dfe706856d11246a7338dfd47d4035d8fb25 (diff)
downloaddata-service-b29178ff148d807083f7431a24e7f2b722854f5f.tar
data-service-b29178ff148d807083f7431a24e7f2b722854f5f.tar.gz
Don't enqueue jobs when branches are deleted
-rw-r--r--guix-data-service/branch-updated-emails.scm12
1 files changed, 7 insertions, 5 deletions
diff --git a/guix-data-service/branch-updated-emails.scm b/guix-data-service/branch-updated-emails.scm
index 3c36f36..5f412eb 100644
--- a/guix-data-service/branch-updated-emails.scm
+++ b/guix-data-service/branch-updated-emails.scm
@@ -55,8 +55,10 @@
git-repository-id
(date->string date "~4"))
- (enqueue-load-new-guix-revision-job
- conn
- git-repository-id
- x-git-newrev
- (string-append x-git-repo " " x-git-refname " updated"))))))
+ (unless (string=? "0000000000000000000000000000000000000000"
+ 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")))))))