guix-package: Record the correct version string in manifests.

* guix-package.in (guix-package)[find-package]: Return (package-version p),
  not VERSION.

1 files changed, 5 insertions, 4 deletions

diff --git a/guix-package.in b/guix-package.in
index 4e66dccdc0..c0b5cea2da 100644
--- a/guix-package.in
+++ b/guix-package.in
@@ -305,15 +305,16 @@ Report bugs to: ~a.~%") "@PACKAGE_BUGREPORT@"))
                    (package-name->name+version name)))
       (match (find-packages-by-name name version)
         ((p)
-         (list name version sub-drv p))
+         (list name (package-version p) sub-drv p))
         ((p p* ...)
          (format (current-error-port)
                  (_ "warning: ambiguous package specification `~a'~%")
                  request)
          (format (current-error-port)
-                 (_ "warning: choosing ~s~%")
-                 p)
-         (list name version sub-drv p))
+                 (_ "warning: choosing ~a from ~a~%")
+                 (package-full-name p)
+                 (location->string (package-location p)))
+         (list name (package-version p) sub-drv p))
         (()
          (leave (_ "~a: package not found~%") request)))))