ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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 @@ (define (member->string member)
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 @@ (define width* (%text-width))
(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)