From 59f734f351ee1703dca3e7e01150b52517d48849 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 6 Jan 2014 23:31:17 +0100
Subject: [PATCH] ui: Filter out internal commands from '--help'.
* guix/ui.scm (show-guix-help)[internal?]: New procedure.
Use it to filter out internal commands reported by '--help'.
---
guix/ui.scm | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/guix/ui.scm b/guix/ui.scm
index 041887e7f0c..bb811c557d0 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -558,13 +558,17 @@ (define (commands)
(command-files)))
(define (show-guix-help)
+ (define (internal? command)
+ (member command '("substitute-binary" "authenticate")))
+
(format #t (_ "Usage: guix COMMAND ARGS...
Run COMMAND with ARGS.\n"))
(newline)
(format #t (_ "COMMAND must be one of the sub-commands listed below:\n"))
(newline)
;; TODO: Display a synopsis of each command.
- (format #t "~{ ~a~%~}" (sort (commands) string<?))
+ (format #t "~{ ~a~%~}" (sort (remove internal? (commands))
+ string<?))
(show-bug-report-information))
(define program-name
--
GitLab