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

* guix/ui.scm (package->recutils): Add call to 'delete-duplicates' in 'dependencies->recutils'.
2017-07-02 13:14:16 +08:00 · 2017-07-02 13:14:16 +08:00 · dbde386ee3
parent b2fde4800d
commit dbde386ee3
1 changed files with 3 additions and 2 deletions
--- 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: ")))))