From be6acf8e3be6ea838ce8707d8f9163fb319f49d5 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 19 Mar 2019 20:42:55 +0000 Subject: Check the type of the header values in branch-updated-emails --- guix-data-service/branch-updated-emails.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 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 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 -- cgit v1.2.3