From 25023835b9fded79e24a8734099b78fd55d98ec8 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 7 Dec 2014 10:08:33 -0700 Subject: [PATCH] adjust status reporting for `raco pkg update` Reduce a little noise that was recently introduced. --- racket/collects/pkg/private/install.rkt | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/racket/collects/pkg/private/install.rkt b/racket/collects/pkg/private/install.rkt index e514a41bb5..dbeb9c2915 100644 --- a/racket/collects/pkg/private/install.rkt +++ b/racket/collects/pkg/private/install.rkt @@ -912,7 +912,8 @@ #:ignore-checksums? ignore-checksums? #:use-cache? use-cache? #:from-command-line? from-command-line? - #:link-dirs? link-dirs?) + #:link-dirs? link-dirs? + #:all-mode? [all-mode? #f]) pkg-name) (cond [(pkg-desc? pkg-name) @@ -1014,9 +1015,10 @@ null)) (define (skip/update-dependencies kind) - (download-printf "Skipping update of ~a: ~a\n" - kind - pkg-name) + (unless all-mode? + (download-printf "Skipping update of ~a: ~a\n" + kind + pkg-name)) (hash-set! update-cache pkg-name #t) (update-dependencies)) @@ -1120,7 +1122,8 @@ #:ignore-checksums? ignore-checksums? #:use-cache? use-cache? #:from-command-line? from-command-line? - #:link-dirs? link-dirs?) + #:link-dirs? link-dirs? + #:all-mode? all-mode?) (map (compose (if infer-clone-from-dir? (convert-directory-to-installed-clone db)