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:
parent
f20d865239
commit
723f5b1dc9
|
@ -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))
|
||||||
|
|
Loading…
Reference in New Issue