[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: ui: package->recutlis: Remove duplicated package names in depende
From: |
??? |
Subject: |
01/01: ui: package->recutlis: Remove duplicated package names in dependencies. |
Date: |
Sun, 2 Jul 2017 01:28:58 -0400 (EDT) |
iyzsong pushed a commit to branch master
in repository guix.
commit dbde386ee315a88503980bc40095765288f15d0a
Author: 宋文武 <address@hidden>
Date: Sun Jul 2 13:14:16 2017 +0800
ui: package->recutlis: Remove duplicated package names in dependencies.
* guix/ui.scm (package->recutils): Add call to 'delete-duplicates' in
'dependencies->recutils'.
---
guix/ui.scm | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/guix/ui.scm b/guix/ui.scm
index c141880..4bad00e 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: ")))))