diff options
| author | Sergey Trofimov <sarg@sarg.org.ru> | 2024-01-23 08:25:44 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-01-24 23:28:38 +0100 |
| commit | f8e0e5274fcf9c966b3938d32922b569f48de524 (patch) | |
| tree | 143f2179ec208d77e3a44496f089581507a87f75 | |
| parent | 6cca8f069431f4475d8eaf9336cb952ce5694e55 (diff) | |
| download | guix-f8e0e5274fcf9c966b3938d32922b569f48de524.tar.gz guix-f8e0e5274fcf9c966b3938d32922b569f48de524.zip | |
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>
| -rw-r--r-- | guix/scripts/describe.scm | 2 |
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)) |