diff options
| author | 宋文武 <iyzsong@gmail.com> | 2016-06-11 10:29:45 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@gmail.com> | 2016-06-11 11:05:18 +0800 |
| commit | 963521a3804893ec22a5cd7614791aa2925daa7b (patch) | |
| tree | b16f180f2810891cd1e74f76c6048521788fa220 /guix/profiles.scm | |
| parent | 359f06aac8e6aaab96b68a0497224c00b622c193 (diff) | |
| download | patches-963521a3804893ec22a5cd7614791aa2925daa7b.tar patches-963521a3804893ec22a5cd7614791aa2925daa7b.tar.gz | |
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'.
Diffstat (limited to 'guix/profiles.scm')
| -rw-r--r-- | guix/profiles.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm index 3cb7b7a3ed..37ea302e82 100644 --- a/guix/profiles.scm +++ b/guix/profiles.scm @@ -469,7 +469,8 @@ MANIFEST that named NAME, or #f if not found." (with-monad %store-monad (match (manifest-entry-item entry) ((? package? package) - (match (package-transitive-inputs package) + (match (cons (list (package-name package) package) + (package-transitive-inputs package)) (((labels inputs . _) ...) (return (find-among-inputs inputs))))) ((? string? item) |