me
/
guix
Archived
1
0
Fork 0

ui: package->recutlis: Remove duplicated package names in dependencies.

* guix/ui.scm (package->recutils): Add call to 'delete-duplicates' in
'dependencies->recutils'.
master
宋文武 2017-07-02 13:14:16 +08:00
parent b2fde4800d
commit dbde386ee3
No known key found for this signature in database
GPG Key ID: 26525665AE727D37
1 changed files with 3 additions and 2 deletions

View File

@ -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: ")))))