02/07: etc: teams: Drop unused port argument for list-members procedure.

[guix-commits]

apteryx pushed a commit to branch master
in repository guix.

commit c0dad02e9f20e59def81bcccd73922d7e2beb88a
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Tue Aug 29 13:32:54 2023 -0400

    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.
---
 etc/teams.scm.in | 12 +++++-------
 1 file 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)