06/08: scripts: describe: Add branch information to json output.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit f1354e792676829843908c4ed0f246dccf26bc1a
Author: jgart <jgart@dismail.de>
AuthorDate: Sun Nov 13 15:35:49 2022 -0600

    scripts: describe: Add branch information to json output.
    
    * guix/scripts/describe.scm (channel->json): Add branch information.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 guix/scripts/describe.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/guix/scripts/describe.scm b/guix/scripts/describe.scm
index 0c310e3da8..e2233c78a5 100644
--- a/guix/scripts/describe.scm
+++ b/guix/scripts/describe.scm
@@ -3,6 +3,7 @@
 ;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
 ;;; Copyright © 2020 Ekaitz Zarraga <ekaitz@elenq.tech>
 ;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com>
+;;; Copyright © 2022 jgart <jgart@dismail.de>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -119,6 +120,7 @@ Display information about the channels currently in 
use.\n"))
    (let ((intro (channel-introduction channel)))
      `((name . ,(channel-name channel))
        (url . ,(channel-url channel))
+       (branch . ,(channel-branch channel))
        (commit . ,(channel-commit channel))
        ,@(if intro
              `((introduction