From f1354e792676829843908c4ed0f246dccf26bc1a Mon Sep 17 00:00:00 2001
From: jgart <jgart@dismail.de>
Date: Sun, 13 Nov 2022 15:35:49 -0600
Subject: scripts: describe: Add branch information to json output.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* 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
-- 
cgit v1.2.3