summaryrefslogtreecommitdiff
path: root/etc
diff options
context:
space:
mode:
authorzimoun <zimon.toutoune@gmail.com>2022-10-20 15:28:13 +0200
committerMathieu Othacehe <othacehe@gnu.org>2022-11-09 17:15:43 +0100
commit18fb7c0f3078216bf4fc865d86b3be76ddc68414 (patch)
treeacff1ce4c0f06a4466d8055f39d2a1403208f8a8 /etc
parentab9e6597f62de7d95462656d9078f45875051423 (diff)
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>
Diffstat (limited to 'etc')
-rw-r--r--etc/teams.scm.in10
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)