futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
* etc/teams.scm.in (list-members): Drop port optional argument.  Turn PREFIX
into a keyword argument.
(print-team): Adjust accordingly.
This commit is contained in:
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))) name)))
(format #false "~a <~a>" quoted-name/maybe (person-email member)))) (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." "Print the members of the given TEAM."
(define port* (or port (current-output-port))) (for-each (lambda (member)
(for-each (format #t "~a~a~%" prefix (member->string member)))
(lambda (member) (sort-members (team-members team))))
(format port* "~a~a~%" prefix (member->string member)))
(sort-members (team-members team))))
(define (list-teams) (define (list-teams)
"Print all teams, their scope and their members." "Print all teams, their scope and their members."
@ -698,7 +696,7 @@ description: ~a
(match (team-scope team) (match (team-scope team)
(() "") (() "")
(scope (format #f "scope: ~{~s ~}~%" scope)))) (scope (format #f "scope: ~{~s ~}~%" scope))))
(list-members team port* "+ ") (list-members team #:prefix "+ ")
(newline)) (newline))
(sort (sort
(hash-map->list (lambda (key value) value) %teams) (hash-map->list (lambda (key value) value) %teams)