me
/
guix
Archived
1
0
Fork 0
Code

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.
Maxim Cournoyer 2023-08-29 13:32:54 -04:00
parent 270cb1db2f
commit c0dad02e9f
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
etc/teams.scm.in
View File

@ -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)