M guix-package.in => guix-package.in +5 -4
@@ 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)))))