diff options
author | Eric Bavier <bavier@member.fsf.org> | 2014-07-25 07:38:20 -0500 |
---|---|---|
committer | Eric Bavier <bavier@member.fsf.org> | 2014-07-25 07:41:57 -0500 |
commit | 5e6feee61793a6b60aa352dcdbbed0155eb42e7f (patch) | |
tree | 23a5affe24bc04d663555484775bf5361f505233 | |
parent | 7eade0ee035578d172e8812d1f06e25744308ac0 (diff) | |
download | gnu-guix-5e6feee61793a6b60aa352dcdbbed0155eb42e7f.tar gnu-guix-5e6feee61793a6b60aa352dcdbbed0155eb42e7f.tar.gz |
guix: package: Fix recutils output for non-package inputs.
* guix/ui.scm (package->recutils)[dependencies]: Ignore non-package inputs.
* tests/guix-package.sh: New test.
-rw-r--r-- | guix/ui.scm | 4 | ||||
-rw-r--r-- | tests/guix-package.sh | 3 |
2 files changed, 5 insertions, 2 deletions
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 @@ WIDTH columns." (format port "version: ~a~%" (package-version p)) (format port "dependencies: ~a~%" (match (package-direct-inputs p) - (((labels packages . _) ...) - (dependencies->recutils 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"`" |