summaryrefslogtreecommitdiff
path: root/etc/teams.scm.in
diff options
context:
space:
mode:
Diffstat (limited to 'etc/teams.scm.in')
-rw-r--r--etc/teams.scm.in12
1 files changed, 5 insertions, 7 deletions
diff --git a/etc/teams.scm.in b/etc/teams.scm.in
index 0ec71c722a..b017bb3d1a 100644
--- a/etc/teams.scm.in
+++ b/etc/teams.scm.in
@@ -666,13 +666,11 @@ TEAMS when a patch is received by Debbugs."
name)))
(format #false "~a <~a>" quoted-name/maybe (person-email member))))
-(define* (list-members team #:optional port (prefix ""))
+(define* (list-members team #:key (prefix ""))
"Print the members of the given TEAM."
- (define port* (or port (current-output-port)))
- (for-each
- (lambda (member)
- (format port* "~a~a~%" prefix (member->string member)))
- (sort-members (team-members team))))
+ (for-each (lambda (member)
+ (format #t "~a~a~%" prefix (member->string member)))
+ (sort-members (team-members team))))
(define (list-teams)
"Print all teams, their scope and their members."
@@ -698,7 +696,7 @@ description: ~a
(match (team-scope team)
(() "")
(scope (format #f "scope: ~{~s ~}~%" scope))))
- (list-members team port* "+ ")
+ (list-members team #:prefix "+ ")
(newline))
(sort
(hash-map->list (lambda (key value) value) %teams)