diff options
| -rw-r--r-- | etc/teams.scm.in | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/etc/teams.scm.in b/etc/teams.scm.in index 549e31d9f0..a2b22cb165 100644 --- a/etc/teams.scm.in +++ b/etc/teams.scm.in @@ -32,6 +32,7 @@ (srfi srfi-9) (srfi srfi-26) (ice-9 format) + (ice-9 regex) (ice-9 match) (guix ui) (git)) @@ -289,9 +290,11 @@ of file names as string." (hash-fold (lambda (key team acc) (if (any (lambda (file) - (any (lambda (scope) - ;; XXX: Add regex support? - (string-prefix? scope file)) + (any (match-lambda + ((? string? scope) + (string=? scope file)) + ((? regexp? scope) + (regexp-exec scope file))) (team-scope team))) files) (cons team acc) |