diff options
| author | zimoun <zimon.toutoune@gmail.com> | 2022-10-20 15:28:13 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2022-11-09 17:15:43 +0100 |
| commit | 18fb7c0f3078216bf4fc865d86b3be76ddc68414 (patch) | |
| tree | acff1ce4c0f06a4466d8055f39d2a1403208f8a8 | |
| parent | ab9e6597f62de7d95462656d9078f45875051423 (diff) | |
| download | guix-patches-18fb7c0f3078216bf4fc865d86b3be76ddc68414.tar guix-patches-18fb7c0f3078216bf4fc865d86b3be76ddc68414.tar.gz | |
etc: teams: List teams sorted by id.
* etc/teams.scm.in (list-teams): Sort teams by id.
Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
| -rw-r--r-- | etc/teams.scm.in | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/etc/teams.scm.in b/etc/teams.scm.in index f3f33aae08..f74acadc01 100644 --- a/etc/teams.scm.in +++ b/etc/teams.scm.in @@ -538,8 +538,8 @@ TEAMS when a patch is received by Debbugs." "Print all teams, their scope and their members." (define port* (current-output-port)) (define width* (%text-width)) - (hash-for-each - (lambda (key team) + (for-each + (lambda (team) (format port* "\ id: ~a @@ -560,7 +560,11 @@ description: ~a (scope (format #f "scope: ~{~s ~}~%" scope)))) (list-members team port* "+ ") (newline)) - %teams)) + (sort + (hash-map->list (lambda (key value) value) %teams) + (lambda (team1 team2) + (string<? (symbol->string (team-id team1)) + (symbol->string (team-id team2))))))) (define (diff-revisions rev-start rev-end) |