diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-03-19 20:42:55 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-03-19 20:42:55 +0000 |
| commit | be6acf8e3be6ea838ce8707d8f9163fb319f49d5 (patch) | |
| tree | 6c865d5333b6f156d5b231ddbae3976b16c5245e /guix-data-service/branch-updated-emails.scm | |
| parent | bdfb6542333b81dd1c72fcbc9a9a934bce034617 (diff) | |
| download | data-service-be6acf8e3be6ea838ce8707d8f9163fb319f49d5.tar data-service-be6acf8e3be6ea838ce8707d8f9163fb319f49d5.tar.gz | |
Check the type of the header values in branch-updated-emails
Diffstat (limited to 'guix-data-service/branch-updated-emails.scm')
| -rw-r--r-- | guix-data-service/branch-updated-emails.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix-data-service/branch-updated-emails.scm b/guix-data-service/branch-updated-emails.scm index 739af8a..284fe49 100644 --- a/guix-data-service/branch-updated-emails.scm +++ b/guix-data-service/branch-updated-emails.scm @@ -29,8 +29,10 @@ (x-git-reftype (assq-ref headers 'x-git-reftype)) (x-git-refname (assq-ref headers 'x-git-refname)) (x-git-newrev (assq-ref headers 'x-git-newrev))) - (when (and (string=? x-git-reftype "branch") - (string=? x-git-repo "guix") + (when (and (and (string? x-git-reftype) + (string=? x-git-reftype "branch")) + (and (string? x-git-repo) + (string=? x-git-repo "guix")) (string? x-git-newrev)) (enqueue-load-new-guix-revision-job conn |