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

pkg: deduplicate dependency list for install command

Browse Source
This commit is contained in:
Bogdan Popa 2020-08-11 11:01:30 +03:00 committed by Matthew Flatt
parent 20cac0056c
commit d259596a35
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -191,6 +191,7 @@
(when clean? (when clean?
(delete-directory/files pkg-dir))) (delete-directory/files pkg-dir)))
(define (show-dependencies deps update? auto?) (define (show-dependencies deps update? auto?)
(define unique-deps (remove-duplicates deps))
(unless quiet? (unless quiet?
(printf/flush "The following~a packages are listed as dependencies of ~a~a:~a\n" (printf/flush "The following~a packages are listed as dependencies of ~a~a:~a\n"
(if update? " out-of-date" " uninstalled") (if update? " out-of-date" " uninstalled")
@ -201,8 +202,8 @@
(if update? "updated" "installed")) (if update? "updated" "installed"))
"") "")
(if update? (if update?
(format-deps deps) (format-deps unique-deps)
(format-list deps))))) (format-list unique-deps)))))
(define simultaneous-installs (define simultaneous-installs
(for/hash ([i (in-list infos)]) (for/hash ([i (in-list infos)])
(values (install-info-name i) (install-info-directory i)))) (values (install-info-name i) (install-info-directory i))))