diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-05-22 10:45:12 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-05-22 11:00:04 +0100 |
| commit | 5d50a0e3e17945ee4d4745ff382b3d58e23db5a0 (patch) | |
| tree | 131659439a22b1e85d316e0e259ab79a19befcfc /guix-data-service/poll-git-repository.scm | |
| parent | 2043a4ef6f85ea943f6b1d0ab453c5b9c716f824 (diff) | |
| download | data-service-5d50a0e3e17945ee4d4745ff382b3d58e23db5a0.tar data-service-5d50a0e3e17945ee4d4745ff382b3d58e23db5a0.tar.gz | |
Support regexes for included and excluded branches
Diffstat (limited to 'guix-data-service/poll-git-repository.scm')
| -rw-r--r-- | guix-data-service/poll-git-repository.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-data-service/poll-git-repository.scm b/guix-data-service/poll-git-repository.scm index 124c559..2ed5644 100644 --- a/guix-data-service/poll-git-repository.scm +++ b/guix-data-service/poll-git-repository.scm @@ -170,9 +170,9 @@ (filter (lambda (branch-name) (let ((excluded-branch? - (member branch-name excluded-branches string=?)) + (branch-in-list? excluded-branches branch-name)) (included-branch? - (member branch-name included-branches string=?))) + (branch-in-list? included-branches branch-name))) (and (not excluded-branch?) (or (null? included-branches) included-branch?)))) |