diff --git a/guix/ui.scm b/guix/ui.scm index 1b7d334757..9112d55daf 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -468,8 +468,8 @@ (define (packagerecutils packages)))) + (((labels inputs . _) ...) + (dependencies->recutils (filter package? inputs))))) (format port "location: ~a~%" (or (and=> (package-location p) location->string) (_ "unknown"))) diff --git a/tests/guix-package.sh b/tests/guix-package.sh index 99debb936b..e8ff7a88a8 100644 --- a/tests/guix-package.sh +++ b/tests/guix-package.sh @@ -179,6 +179,9 @@ guix package -p "$profile" -A 'gui.*e' | grep guile # Check whether `--show' returns something sensible. guix package --show=guile | grep "^name: guile" +# Check show doesn't fail for packages with non-package inputs. +guix package --show=texlive + # There's no generation older than 12 months, so the following command should # have no effect. generation="`readlink_base "$profile"`"