profiles: manifest-lookup-package: Correctly handle package entries.

* guix/profiles.scm (manifest-lookup-package): Consider the package entry
in addition to its 'package-transitive-inputs'.
This commit is contained in:
宋文武 2016-06-11 10:29:45 +08:00
parent 359f06aac8
commit 963521a380
No known key found for this signature in database
GPG Key ID: 26525665AE727D37
1 changed files with 2 additions and 1 deletions

View File

@ -469,7 +469,8 @@ MANIFEST that named NAME, or #f if not found."
(with-monad %store-monad (with-monad %store-monad
(match (manifest-entry-item entry) (match (manifest-entry-item entry)
((? package? package) ((? package? package)
(match (package-transitive-inputs package) (match (cons (list (package-name package) package)
(package-transitive-inputs package))
(((labels inputs . _) ...) (((labels inputs . _) ...)
(return (find-among-inputs inputs))))) (return (find-among-inputs inputs)))))
((? string? item) ((? string? item)