~ruther/guix-local: ui: package->recutlis: Remove duplicated package names in dependencies.

dbde386ee315a88503980bc40095765288f15d0a — 宋文武 8 years ago b2fde48

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

* guix/ui.scm (package->recutils): Add call to 'delete-duplicates' in
'dependencies->recutils'.

patch browse .tar.gz

1 files changed, 3 insertions(+), 2 deletions(-)

M guix/ui.scm

M guix/ui.scm => guix/ui.scm +3 -2

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