summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorSergey Trofimov <sarg@sarg.org.ru>2024-01-23 08:25:44 +0100
committerLudovic Courtès <ludo@gnu.org>2024-01-24 23:28:38 +0100
commitf8e0e5274fcf9c966b3938d32922b569f48de524 (patch)
tree143f2179ec208d77e3a44496f089581507a87f75 /guix
parent6cca8f069431f4475d8eaf9336cb952ce5694e55 (diff)
scripts: describe: Support 'channels-sans-intro' format for local checkouts.
* guix/scripts/describe.scm (%display-checkout-info): Support 'channels-sans-intro' format. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'guix')
-rw-r--r--guix/scripts/describe.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/guix/scripts/describe.scm b/guix/scripts/describe.scm
index 6d451dc902..449ab4b252 100644
--- a/guix/scripts/describe.scm
+++ b/guix/scripts/describe.scm
@@ -168,6 +168,8 @@ string is ~a.~%")
(format #t (G_ " commit: ~a~%") (channel-commit channel)))
('channels
(pretty-print `(list ,(channel->code channel))))
+ ('channels-sans-intro
+ (pretty-print `(list ,(channel->code channel #:include-introduction? #f))))
('json
(display (channel->json channel))
(newline))