summaryrefslogtreecommitdiff
path: root/etc/teams.scm.in
diff options
context:
space:
mode:
authorMaxim Cournoyer <maxim.cournoyer@gmail.com>2023-08-29 13:32:54 -0400
committerMaxim Cournoyer <maxim.cournoyer@gmail.com>2023-08-29 14:52:20 -0400
commitc0dad02e9f20e59def81bcccd73922d7e2beb88a (patch)
tree24aad611d1b6b373bf3849d4e1af4d75a32473f6 /etc/teams.scm.in
parent270cb1db2fec2b9dc94447eeea871eb8e9063a9b (diff)
etc: teams: Drop unused port argument for list-members procedure.
* etc/teams.scm.in (list-members): Drop port optional argument. Turn PREFIX into a keyword argument. (print-team): Adjust accordingly.
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)