summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
author宋文武 <iyzsong@member.fsf.org>2017-07-02 13:14:16 +0800
committer宋文武 <iyzsong@member.fsf.org>2017-07-02 13:14:16 +0800
commitdbde386ee315a88503980bc40095765288f15d0a (patch)
treec5a752372b924a4eb935afa11c21f27da947210f
parentb2fde4800d39863d9260509ac0b174b459d42840 (diff)
ui: package->recutlis: Remove duplicated package names in dependencies.
* guix/ui.scm (package->recutils): Add call to 'delete-duplicates' in 'dependencies->recutils'.
-rw-r--r--guix/ui.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/ui.scm b/guix/ui.scm
index c141880316..4bad00e8cf 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -983,8 +983,9 @@ WIDTH columns. EXTRA-FIELDS is a list of symbol/value pairs to emit."
(if (> width 2) (- width 2) width))
(define (dependencies->recutils packages)
- (let ((list (string-join (map package-full-name
- (sort packages package<?)) " ")))
+ (let ((list (string-join (delete-duplicates
+ (map package-full-name
+ (sort packages package<?))) " ")))
(string->recutils
(fill-paragraph list width*
(string-length "dependencies: ")))))