diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2019-06-29 01:50:15 -0400 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-07-03 12:03:07 +0200 |
| commit | 723f5b1dc984f3111ce06ad186b400c867ebb235 (patch) | |
| tree | b4273430d2e7d8e7ef420b4a456dba4b41ed4bc3 | |
| parent | f20d86523915584d7ed65b4ad969d96cb22a244e (diff) | |
| download | guix-723f5b1dc984f3111ce06ad186b400c867ebb235.tar guix-723f5b1dc984f3111ce06ad186b400c867ebb235.tar.gz | |
profiles: Adjust packages->manifest pattern for inferior packages.
* guix/profiles.scm (packages->manifest): Add package? predicate to `(package
output)' pattern to avoid incorrectly matching `(inferior-package output)',
which should be handled by a later clause.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
| -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 dfc9ba1ca0..f5c863945c 100644 --- a/guix/profiles.scm +++ b/guix/profiles.scm @@ -8,6 +8,7 @@ ;;; Copyright © 2016 Chris Marusich <cmmarusich@gmail.com> ;;; Copyright © 2017 Huang Ying <huang.ying.caritas@gmail.com> ;;; Copyright © 2017 Maxim Cournoyer <maxim.cournoyer@gmail.com> +;;; Copyright © 2019 Kyle Meyer <kyle@kyleam.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -337,7 +338,7 @@ denoting a specific output of a package." (manifest (map (match-lambda - ((package output) + (((? package? package) output) (package->manifest-entry package output)) ((? package? package) (package->manifest-entry package)) |