Message ID | 20221020132814.1549436-3-zimon.toutoune@gmail.com |
---|---|
State | New |
Headers | show |
Series | [bug#58660,1/4] etc: teams: Improve scope display. | expand |
Context | Check | Description |
---|---|---|
cbaines/comparison | success | View comparision |
cbaines/git-branch | success | View Git branch |
cbaines/applying patch | success | |
cbaines/issue | success | View issue |
cbaines/comparison | success | View comparision |
cbaines/git-branch | success | View Git branch |
cbaines/applying patch | success | View Laminar job |
cbaines/issue | success | View issue |
diff --git a/etc/teams.scm.in b/etc/teams.scm.in index 8e18a5d206..3d4c7319c2 100644 --- a/etc/teams.scm.in +++ b/etc/teams.scm.in @@ -556,8 +556,8 @@ (define (list-teams) "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 @@ -584,7 +584,11 @@ (define width* (%text-width)) string<=?))))) (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)