nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/ui.scm
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)) (if (> width 2) (- width 2) width))
(define (dependencies->recutils packages) (define (dependencies->recutils packages)
(let ((list (string-join (map package-full-name (let ((list (string-join (delete-duplicates
(sort packages package<?)) " "))) (map package-full-name
(sort packages package<?))) " ")))
(string->recutils (string->recutils
(fill-paragraph list width* (fill-paragraph list width*
(string-length "dependencies: "))))) (string-length "dependencies: ")))))