suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjust status reporting for raco pkg update

Browse Source 
Reduce a little noise that was recently introduced.
This commit is contained in:
Matthew Flatt 2014-12-07 10:08:33 -07:00
parent d400a7fcb1
commit 25023835b9
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
racket/collects/pkg/private/install.rkt
View File

@ -912,7 +912,8 @@
#:ignore-checksums? ignore-checksums? #:ignore-checksums? ignore-checksums?
#:use-cache? use-cache? #:use-cache? use-cache?
#:from-command-line? from-command-line? #:from-command-line? from-command-line?
#:link-dirs? link-dirs?) #:link-dirs? link-dirs?
#:all-mode? [all-mode? #f])
pkg-name) pkg-name)
(cond (cond
[(pkg-desc? pkg-name) [(pkg-desc? pkg-name)
@ -1014,9 +1015,10 @@
null)) null))
(define (skip/update-dependencies kind) (define (skip/update-dependencies kind)
(download-printf "Skipping update of ~a: ~a\n" (unless all-mode?
kind (download-printf "Skipping update of ~a: ~a\n"
pkg-name) kind
pkg-name))
(hash-set! update-cache pkg-name #t) (hash-set! update-cache pkg-name #t)
(update-dependencies)) (update-dependencies))
@ -1120,7 +1122,8 @@
#:ignore-checksums? ignore-checksums? #:ignore-checksums? ignore-checksums?
#:use-cache? use-cache? #:use-cache? use-cache?
#:from-command-line? from-command-line? #:from-command-line? from-command-line?
#:link-dirs? link-dirs?) #:link-dirs? link-dirs?
#:all-mode? all-mode?)
(map (compose (map (compose
(if infer-clone-from-dir? (if infer-clone-from-dir?
(convert-directory-to-installed-clone db) (convert-directory-to-installed-clone db)