From 1edcfda81ba5c20ca715473d45315662c60dd81e Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Fri, 15 Nov 2019 21:30:37 +0100
Subject: pull: Remove unused '--verbose' option.

This option had been ignored since commit
0d39a3b98948314e135566b9315717695a9035ea (August 2018).

* guix/scripts/pull.scm (show-help, %options): Remove "--verbose".
(build-and-install): Remove #:verbose?, which was unused.
(guix-pull): Adjust accordingly.
---
 guix/scripts/pull.scm | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

(limited to 'guix/scripts')

diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm
index 92aac6066e..418998409a 100644
--- a/guix/scripts/pull.scm
+++ b/guix/scripts/pull.scm
@@ -78,8 +78,6 @@ (define %default-options
 (define (show-help)
   (display (G_ "Usage: guix pull [OPTION]...
 Download and deploy the latest version of Guix.\n"))
-  (display (G_ "
-      --verbose          produce verbose output"))
   (display (G_ "
   -C, --channels=FILE    deploy the channels defined in FILE"))
   (display (G_ "
@@ -120,10 +118,7 @@ (define (show-help)
 
 (define %options
   ;; Specifications of the command-line options.
-  (cons* (option '("verbose") #f #f
-                 (lambda (opt name arg result)
-                   (alist-cons 'verbose? #t result)))
-         (option '(#\C "channels") #t #f
+  (cons* (option '(#\C "channels") #t #f
                  (lambda (opt name arg result)
                    (alist-cons 'channel-file arg result)))
          (option '(#\l "list-generations") #f #t
@@ -382,7 +377,7 @@ (define (display-news profile)
   (display-channel-news profile))
 
 (define* (build-and-install instances profile
-                            #:key use-substitutes? verbose? dry-run?)
+                            #:key use-substitutes? dry-run?)
   "Build the tool from SOURCE, and install it in PROFILE.  When DRY-RUN? is
 true, display what would be built without actually building it."
   (define update-profile
@@ -823,8 +818,6 @@ (define (guix-pull . args)
                                              #:dry-run?
                                              (assoc-ref opts 'dry-run?)
                                              #:use-substitutes?
-                                             (assoc-ref opts 'substitutes?)
-                                             #:verbose?
-                                             (assoc-ref opts 'verbose?))))))))))))))
+                                             (assoc-ref opts 'substitutes?))))))))))))))
 
 ;;; pull.scm ends here
-- 
cgit v1.2.3