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

* guix/ui.scm (package->recutils): Add call to 'delete-duplicates' in
'dependencies->recutils'.
This commit is contained in:
宋文武 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

View file

@ -983,8 +983,9 @@ (define width*
(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: ")))))