mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-07 11:29:59 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

scripts: describe: Add branch information to json output.

Browse source 
* guix/scripts/describe.scm (channel->json): Add branch information.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
jgart 2022-11-13 15:35:49 -06:00 • committed by Ludovic Courtès
parent 6d1177b2c8
commit f1354e7926
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/scripts/describe.scm
View file

@ -3,6 +3,7 @@
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2020 Ekaitz Zarraga <ekaitz@elenq.tech> ;;; Copyright © 2020 Ekaitz Zarraga <ekaitz@elenq.tech>
;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com> ;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com>
;;; Copyright © 2022 jgart <jgart@dismail.de>
;;; ;;;
;;; This file is part of GNU Guix. ;;; 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))) (let ((intro (channel-introduction channel)))
`((name . ,(channel-name channel)) `((name . ,(channel-name channel))
(url . ,(channel-url channel)) (url . ,(channel-url channel))
(branch . ,(channel-branch channel))
(commit . ,(channel-commit channel)) (commit . ,(channel-commit channel))
,@(if intro ,@(if intro
`((introduction `((introduction