~ruther/guix-local

f8e0e5274fcf9c966b3938d32922b569f48de524 — Sergey Trofimov 2 years ago 6cca8f0 
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>
patch browse .tar.gz 
1 files changed, 2 insertions(+), 0 deletions(-)

M guix/scripts/describe.scm

M guix/scripts/describe.scm => guix/scripts/describe.scm +2 -0
@@ 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))