diff options
Diffstat (limited to 'guix/ui.scm')
| -rw-r--r-- | guix/ui.scm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index 74ea20e6c8..1b7d334757 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -453,6 +453,13 @@ WIDTH columns." (fill-paragraph str width (string-length "description: "))))) + (define (dependencies->recutils packages) + (let ((list (string-join (map package-full-name + (sort packages package<?)) " "))) + (string->recutils + (fill-paragraph list width + (string-length "dependencies: "))))) + (define (package<? p1 p2) (string<? (package-full-name p1) (package-full-name p2))) @@ -462,8 +469,7 @@ WIDTH columns." (format port "dependencies: ~a~%" (match (package-direct-inputs p) (((labels packages . _) ...) - (string-join (map package-full-name - (sort packages package<?)) ", ")))) + (dependencies->recutils packages)))) (format port "location: ~a~%" (or (and=> (package-location p) location->string) (_ "unknown"))) |