diff options
| author | 宋文武 <iyzsong@member.fsf.org> | 2017-07-02 13:14:16 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@member.fsf.org> | 2017-07-02 13:14:16 +0800 |
| commit | dbde386ee315a88503980bc40095765288f15d0a (patch) | |
| tree | c5a752372b924a4eb935afa11c21f27da947210f | |
| parent | b2fde4800d39863d9260509ac0b174b459d42840 (diff) | |
| download | patches-dbde386ee315a88503980bc40095765288f15d0a.tar patches-dbde386ee315a88503980bc40095765288f15d0a.tar.gz | |
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.scm | 5 |
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: "))))) |