From 2d2a54ae329b82ec2ffbb178c3c53071f12a81a2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 15 Jul 2026 15:26:20 +0200 Subject: =?UTF-8?q?teams:=20Initialize=20=20=E2=80=98id?= =?UTF-8?q?=E2=80=99=20to=20*unspecified*.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * etc/teams.scm (team->forgejo-team): Initialize ‘id’ as *unspecified* so that it’s the JSON ‘id’ field is not emitted for ‘create-team’ calls. Signed-off-by: Ludovic Courtès Merges: #9944 --- etc/teams.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/etc/teams.scm b/etc/teams.scm index cacaa0e47fa..8987b8b9c18 100755 --- a/etc/teams.scm +++ b/etc/teams.scm @@ -145,7 +145,7 @@ exec $pre_inst_env_maybe guix repl -- "$0" "$@" forgejo-team forgejo-team? json->forgejo-team <=> forgejo-team->json (name forgejo-team-name) - (id forgejo-team-id) ;integer + (id forgejo-team-id) ;integer | *unspecified* (description forgejo-team-description) (all-repositories? forgejo-team-all-repositories? "includes_all_repositories") @@ -372,7 +372,7 @@ PARAMETERS." (define (team->forgejo-team team) "Return a Forgejo team derived from TEAM, a record." (forgejo-team (team-id->forgejo-id (team-id team)) - #f + *unspecified* ;no numeric ID initially (or (team-description team) "") #f ;all-repositories? #f ;can-create-org-repository? -- cgit v1.2.3