02/07: channels: 'channel->code' emits 'channel' field only when necessary.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit e6c01420dbe88fc948c0b6755edbdc6a2ad18fe0
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Jan 23 18:21:44 2023 +0100

    channels: 'channel->code' emits 'channel' field only when necessary.
    
    * guix/channels.scm (channel->code): Emit 'commit' field only when it is
    true.
---
 guix/channels.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/guix/channels.scm b/guix/channels.scm
index d84228c47e..40cbc4bb3a 100644
--- a/guix/channels.scm
+++ b/guix/channels.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2018-2022 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2018-2023 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
 ;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
@@ -1057,7 +1057,9 @@ true, include its introduction, if any."
       (name ',(channel-name channel))
       (url ,(channel-url channel))
       (branch ,(channel-branch channel))
-      (commit ,(channel-commit channel))
+      ,@(if (channel-commit channel)
+            `((commit ,(channel-commit channel)))
+            '())
       ,@(if intro
             `((introduction (make-channel-introduction
                              ,(channel-introduction-first-signed-commit intro)