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>
This commit is contained in:
Kyle Meyer 2019-06-29 01:50:15 -04:00 committed by Ludovic Courtès
parent f20d865239
commit 723f5b1dc9
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 1 deletions

View File

@ -8,6 +8,7 @@
;;; Copyright © 2016 Chris Marusich <cmmarusich@gmail.com> ;;; Copyright © 2016 Chris Marusich <cmmarusich@gmail.com>
;;; Copyright © 2017 Huang Ying <huang.ying.caritas@gmail.com> ;;; Copyright © 2017 Huang Ying <huang.ying.caritas@gmail.com>
;;; Copyright © 2017 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2017 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2019 Kyle Meyer <kyle@kyleam.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -337,7 +338,7 @@ denoting a specific output of a package."
(manifest (manifest
(map (match-lambda (map (match-lambda
((package output) (((? package? package) output)
(package->manifest-entry package output)) (package->manifest-entry package output))
((? package? package) ((? package? package)
(package->manifest-entry package)) (package->manifest-entry package))