03/08: pull: Remove unused '--verbose' option.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 1edcfda81ba5c20ca715473d45315662c60dd81e
Author: Ludovic Courtès <address@hidden>
Date:   Fri Nov 15 21:30:37 2019 +0100

    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(-)

diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm
index 92aac60..4189984 100644
--- a/guix/scripts/pull.scm
+++ b/guix/scripts/pull.scm
@@ -79,8 +79,6 @@
   (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_ "
       --url=URL          download from the Git repository at URL"))
@@ -120,10 +118,7 @@ Download and deploy the latest version of Guix.\n"))
 
 (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 @@ previous generation.  Return true if there are news to 
display."
   (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 @@ Use '~/.config/guix/channels.scm' instead."))
                                              #: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