05/07: etc: teams: Itemize 'scope' field.

[guix-commits]

apteryx pushed a commit to branch master
in repository guix.

commit c4fec3b480d07d3433b293aac87ab4228ca923af
Author: zimoun <zimon.toutoune@gmail.com>
AuthorDate: Thu Nov 17 21:28:19 2022 +0100

    etc: teams: Itemize 'scope' field.
    
    * etc/teams.scm.in (list-teams): Itemize the 'scope' field.
    
    Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
    Modified-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
---
 etc/teams.scm.in | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/etc/teams.scm.in b/etc/teams.scm.in
index b53eb63399..98288945a1 100644
--- a/etc/teams.scm.in
+++ b/etc/teams.scm.in
@@ -682,19 +682,19 @@ name: ~a
 description: ~a
 ~amembers:
 "
-            (team-id team)
-            (team-name team)
-            (or (and=> (team-description team)
-                       (lambda (text)
-                         (string->recutils
-                          (fill-paragraph text (%text-width)
-                                          (string-length "description: ")))))
-                "<none>")
-            (match (team-scope team)
-              (() "")
-              (scope (format #f "scope: ~{~s ~}~%" scope))))
-    (list-members team #:prefix "+ ")
-    (newline)))
+          (team-id team)
+          (team-name team)
+          (or (and=> (team-description team)
+                     (lambda (text)
+                       (string->recutils
+                        (fill-paragraph text (%text-width)
+                                        (string-length "description: ")))))
+              "<none>")
+          (match (team-scope team)
+            (() "")
+            (scope (format #f "scope:~%~{+ ~a~^~%~}~%" scope))))
+  (list-members team #:prefix "+ ")
+  (newline))
 
 (define (sort-teams teams)
   "Sort TEAMS, a list of <team> record objects."