diff options
Diffstat (limited to 'guix-data-service/branch-updated-emails.scm')
| -rw-r--r-- | guix-data-service/branch-updated-emails.scm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/guix-data-service/branch-updated-emails.scm b/guix-data-service/branch-updated-emails.scm index 8b5290b..2c0e992 100644 --- a/guix-data-service/branch-updated-emails.scm +++ b/guix-data-service/branch-updated-emails.scm @@ -59,12 +59,10 @@ conn git-repository-id))) (let ((excluded-branch? - (member branch-name excluded-branches string=?)) - (included-branch? - (member branch-name included-branches string=?))) + (branch-in-list? excluded-branches branch-name))) (when (and (not excluded-branch?) - (or (null? included-branches) - included-branch?)) + (or (NULL? included-branches) + (branch-in-list? included-branches branch-name))) (if (string=? commit-all-zeros x-git-newrev) (insert-git-commit-entry conn (or (git-branch-for-repository-and-name |