From 5e6feee61793a6b60aa352dcdbbed0155eb42e7f Mon Sep 17 00:00:00 2001
From: Eric Bavier <bavier@member.fsf.org>
Date: Fri, 25 Jul 2014 07:38:20 -0500
Subject: 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.
---
 guix/ui.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'guix/ui.scm')

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")))
-- 
cgit v1.2.3