diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-05-05 20:23:55 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-05-05 20:23:55 +0100 |
| commit | b29178ff148d807083f7431a24e7f2b722854f5f (patch) | |
| tree | e906a8b1a95c31e9d357fb3bc7314ed2e8b11ab9 /guix-data-service/branch-updated-emails.scm | |
| parent | 5028dfe706856d11246a7338dfd47d4035d8fb25 (diff) | |
| download | data-service-b29178ff148d807083f7431a24e7f2b722854f5f.tar data-service-b29178ff148d807083f7431a24e7f2b722854f5f.tar.gz | |
Don't enqueue jobs when branches are deleted
Diffstat (limited to 'guix-data-service/branch-updated-emails.scm')
| -rw-r--r-- | guix-data-service/branch-updated-emails.scm | 12 |
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"))))))) |